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I. INTRODUCTION 



A. THE NEED FOR A DESIGN DATABASE. 

“The development of hard real-time and embedded software systems is an extremely 
complex and expensive process.. .Vast amounts of evolving data are created in the design 
of hard real-time systems” [Ref. l;p. 1]. Management of this data is critical in computer 
aided design (CAD) environments [Ref. 2:p. 261]. There is a requirement for a database 
management system (DBMS) to be developed to meet the needs of systems being 
developed in CAD environments. Conventional DBMS’s were designed for business 
applications and made available only the current value of the records stored in the database. 
The qualities of the currently available DBMS’s do not meet the requirements of design 
engineers working in CAD environments. CAD systems require that the objects be stored 
and retrieved according to the needs of the design engineer. These objects must closely 
model the real world object they describe. The design of a system evolves over time, 
requiring the DBMS used in conjunction with CAD tools to store design data as it is viewed 
at different time periods during the system life cycle. This important feature which is a 
requirement of a design application is not available in commercial database management 
system (CDBMS). 

Because the DBMS requirements of a design application are different from those of a 
business application, a new approach must be taken to meet the DBMS requirements 
supporting design applications. Though many CAD organizations have tried to integrate 
commercially available DBMS while developing their projects, they have found “that some 
of the important features which are required in the design application are not available in 
CDBMS” [Ref. 2:pp. 261-262]. Various solutions have been proposed to rectify the 
CDBMS problems of handling CAD databases. Berzins and Ketabchi [Ref. 3:p. 94] list 
four proposed solutions to the problem. 
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1. Develope a new DBMS, called a design DBMS (DDBMS), equipped with 
facilities required in the design application. 

2. Enhance the current DBMS by adding new capabilities. 

3. Build a layer of software on top of current DBMS’s to compensate for their 
deficiencies. 

4. Use a special purpose file manager that views the DBMS as a design 
application. 

Of the four approaches listed by Berzins and Ketabchi the first is the approach selected 
for the creation of a design database for the Computer Aided Prototyping System (CAPS). 
As Berzins and Ketabchi [Ref 2:p. 262] state “We have chosen to pursue this approach 
because we believe that the enhancements of CDBMS required in the second approach are 
too e.xtensive to make this approach feasible, and that the third approach can not meet the 
fle.xibility and efficiency desired in CAD environments." 

B. THE HISTORICAL TRAIL. 

During the evolution steps executed on the objects of the DDB, a historical trail will 
be maintained so the design and decision histor>’ of the system being developed will be 
recorded. 

The design history consists of the relationship between each version of the 
requirements and the corresponding version of the parts of the prototype [Ref 4;p. 17]. This 
type of information will be useful when a decision is made to return to a previous version 
of the project. The historical trail will provide the information necessary to restore the 
corresponding pans of the protot>pe to the previous configuration. 

C. THE OBJECT ORIENTED APPROACH. 

The need for a design database, as stated in section A, is the inherent difference 
between the DBMS requirements of a design application and those of business 
applications. The object oriented approach is “based on object oriented data models rather 
then record oriented data models.. .The object oriented data model (ODM) will increase the 



productivity of the design systems by providing modeling facilities which mirror the 
designs logical view of the data” [Ref. 2:p. 261]. 

There are three basic parts of an ODM: 

1. Object: convenient aggregations of information describing real world objects. 

2. Properties: functions which model characteristics of objects and relationships 
among them. 

3. Operations: Change the state of an object, enforce constraints and provide an 
application oriented interface to the database [Ref. 2:p. 261]. 

The development of object oriented technology (object oriented languages, object 
oriented programs and object oriented data models) has allowed designers to develop 
DDBMS meeting the requirements of design applications. This object oriented approach 
allow s the use of off the shelf Objected Oriented DBMS w hich can be further developed to 
possess the enhanced capabilities needed for design applications. 

Object oriented database management systems (OODBMS) provide several features 
not available in other database types. Two of the major advantages of an OODBMS are the 
increased modeling power and the ability to closely align and store CAD objects to reflect 
real-world relationships. This supports the definition of a design database as defined by 
Katz [Ref. 5:p. 379], “a (large) collection of objects that together describe an artifact being 
designed... ‘Objects’ are usually packages of data and manipulation procedures." The term 
object as used by Katz, contains the three parts of the ODM listed above. 

Over the past several years, several OODBMS have been developed. The impact of 
these systems on the software development process are just being felt. The object oriented 
approach represents a true paradigm shift [Ref. 6:p. 386]. 

In laying out the conceptional design of the design database Douglas [Ref. l:p. 8] 
clearly states what the OODBMS must provide. 

“An object-oriented database management system OODBMS) must provide 
persistence, concurrency, recovery, transaction management, authorization, and security. 
An OODBMS is an objected-oriented system and as such it must also provide the following 
capabilities: 
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- Objects 

- Active data 

- Abstraction 

- Extensibility 

An OODBMS should provide application_oriented capabilities such as: 

- Version and configuration control for CAD applications. 

- Dynamic creation of classes. 

- Recursive classes, multiple inheritance, and extensive tool interface capabilities. 

- Support for multimedia objects, distributed environments, and graphs. 

An object-oriented DBMS is one that supports persistency, values, an extensible set of 
data structures, an extensible set of operations, and abstractions.” 

D. THEORY OF THE DESIGN DATABASE. 

The purpose of a design database (DDB) is the management of system project data, so 

that the system components can be stored and retrieved according to the needs of the design 

engineers. 



The DDB is an independent software system in its own right. It is capable of being a 
stand alone system which can manage the design data of any system under development. 
In the context of this thesis, the DDB is a tool contained within CAPS and supports the 
protot>T)e systems being designed by CAPS. Although the DDB supports all the prototype 
systems being designed by CAPS “there will be only one instance of the design database 
for each project” [Ref. l:p. 14]. For example, each design engineer will feel that the system 
they are working on has it own design database to manage the design data of their system. 

The physical location of the data will be a concern of the actual database management 
system. The design database being developed uses the ONTOS Object Database. ONTOS, 
a distributed object database management system, decides where to physically store the 
data [Ref. 1 l:p. 3] and makes access to the design data transparent to the user. 

The DDB manages the design data by manipulating collections of design data 
identified as nodes. Within CAPS, a node is made up of PSDL text, Ada source code, 
graphic representation data and a postscript representation of the node. The PSDL text is 
separated into specification and implementation components. 

The DDB is a hierarchial storage structure of nodes. Each node represents a different 
component. This hierarchial structure is a tree structure consisting of atomic and composite 
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nodes. “Each level of the tree is created by the decomposition of the parent node. The 
decomposition process is complete when all leaf nodes are atomic" [Ref. l:p. 19]. 

The nodes of a DDE are time sensitive. The nodes will version and create new 
variations depending when they are accepted into the design database. This topic will be 
discussed further in chapter two, section two. 

The design database is accessible to the user through a highly developed user interface 
or a low level command line interface. Since the commands issued to the DDE will have 
the same effect no matter which platform they are issued from, the DDE is independent of 
the interface used for accessing the design data. 

The major functions of the DDE within CAPS are: 

1. Store the levels of a PSDL program in a hierarchial format by specification. 

2. Retrieve the levels of a PSDL program in a hierarchial format by specification 

for review or editing. 

3. Create and insert new levels of a PSDL program in a hierarchial format by 

specification. 

4. Generate the entire PSDL program [Ref.L.p. 26]. 

Douglas [Ref.Lp. 27] gives an excellent example describing the process in which the 
four listed functions must work. 

“To construct a prototype, the PSDL specification of the root operator is entered. 
At this point the DDE would create a root node. Assuming the root node is composite, the 
node would decompose into children operators. The DDE would create child nodes for 
each decomposition. The decomposition would continue until all leaf nodes are atomic... 
the functions of retrieving nodes, parent-child relationships, and deleting nodes will be 
required. The tree will be traversed and the entire PSDL program produced once all leaf 
nodes are atomic.” 
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II. BACKGROUND 



A. COMPUTER AIDED PROTOTYPING SYSTEM. 

The Computer Aided Prototyping System (CAPS) is a collection of computer-aided 
software tools designed to support protot^'ping of complex software systems, such as 
control systems with hard real time constraints. Protot>T)ing can be carried out manually, 
but because of the cost in time and effort, manual prototv^jing produces limited benefits. 
The aim of CAPS is to strengthen the protot>'ping strategy by allowing the system designer 
to develop and modify the prototj^pe automatically to meet the changing requirements of 
the user. The prototype goes through an evolutionary process as do all softw'are systems. 
As the system proceeds through its evolutionary steps, the tools provided by C.APS w'ill aid 
the designer in modifying the prototype to meet new requirements established by the user. 

The main components of C.APS are a special prototyping language and a set of 
software tools [Ref. 4pp. 14-15], Figure 1. 




Figure I. Computer Aided Prototyping System Tools. 



The main components of CAPS are the three tool subsystems; The User Interface, 
Software Database System and the Execution Support System. The special prototyping 



language that allows communication between the tools is the Prototype System Description 
Language (PSDL). PSDL integrates the tools and provides the designer with a uniform 
conceptual frame work and a high level description of the system [Ref. 4:p. 15]. PSDL 
enhances the power of the designer to modify the prototype by providing the following 
capabilities: 

- Modularity 

- Adaptability 

- Abstraction 

- Requirements tracing 

The User Interface is composed of five software tools which provide the designer with 
the ability to enter requirements and design information, display the results of a prototype 
execution, select the different prototype capabilities to demonstrate, and propagate changes 
throughout the prototype. The user interface contains the: 

- Syntax Directed Editor 

- Graphic Editor 

- Expert System 

- Debugger 

- Browser 

The syntax directed editor allows for the entry and modification of syntactically 
correct PSDL code. The designer will use the syntax directed editor to edit the PSDL code 
generated by the graphic editor, and enter PSDL descriptions and text of prototype design. 
The text portions of the prototype are not represented in the graphic editor. PSDL files are 
identified by the suffixes “.spec.psdl” and “.imp.psdl”. 

The graphic editor supports a graphic view of the prototype. It allows the designer to 
design an augmented data flow diagram of the prototype under development. The graphic 
objects displayed in the editor represent PSDL descriptions of the prototype. Skeletal PSDL 
code will be generated from the data flow diagrams designed using the graphic editor. The 
graphic editor generates files with “.spec.psdl”, “.imp.psdl”, “.ps” and “.graph” suffixes. 
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The expert system gives the user, who is unfamiliar with PSDL, the capability to 
examine the prototype by generating english text from PSDL. 

The browser allows the designer to view and retrieve the reusable PSDL and Ada 
components from the software database. 

The debugger allows the designer to interact with the execution support system. From 
the debugger the designer can execute the prototv'pe, display results and gather statistics 
about a prototypes behavior and performance. The debugger contains two components: a 
debugger for the static scheduler and one for the dynamic scheduler. The static scheduler 
debugger processes errors while attempting to create a static schedule and the dynamic 
debugger processes errors that occur while the prototype is e.xecuting. 

The Software Database System contains four software tools. 

- the Design Database 

- the Software Base 

- the Software Design Management System 

- the Rewrite Subsystem 

The system is structured to allow for the reuse of prototype designs and reusable 
software components during the development of the prototv'pe. Reuse is the key motivation 
for the software database system. The benefits of reusing software include: 

- improved software quality and maintenance 

- increased programmer productivity and efficiency 

- lower development costs [Ref. 7;p. 94] 

The requirements established for the software database system provide for the 
following capabilities: 

- to store PSDL designs and software components 

- to retrieve designs and software components for editing 

- the CAPS user interface should integrate with the softw'are database system in 
such a w'ay that the software database management system is transparent to the prototype 
designer [Ref. 7;p. 97]. 
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The design database is a repository for the different variations and versions of PSDL 
prototype descriptions for all software projects developed using CAPS. Each prototype 
being developed under CAPS will appear to have its have its own design database. 

The software base contains PSDL descriptions and Ada source code for all reusable 
software components. 

The software design management system maintains the prototype design history. This 
system is used to locate reusable software components from the software base and retrieve 
the versioned system prototypes from the design database. 

The Execution Support System is made up of three tools; 

- the Translator 

- the Static Scheduler 

- the Dynamic Scheduler 

The translator generates high level code from the PSDL prototype which binds the 
reusable components from the software base to the executable protot>'pe [Ref 4:p. 17]. The 
translator will generate Ada source code. The Ada source code files generated will be 
identified by a “.a" suffix. The purpose of the translator is to produce an Ada translation of 
a PSDL prototype description. The translator performs lexical analysis of the internal 
textual representation of a PSDL system prototype, parses the prototype description and 
constructs an abstract syntax tree. After evaluating the tree attributes, it then constructs Ada 
source code utilizing PSDL abstract data types. 

The static scheduler schedules time constraints that are assigned to PSDL operations 
to ensure that all time constraints are met during execution. 

The purpose of the dynamic scheduler is to coordinate the execution of operators and 
their debuggers during execution. 
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B. THE ROLE OF THE DESIGN DATABASE IN RAPID PROTOTYPING. 



The CAPS Design Database is constructed of C++ and ONTOS classes. Each class 
serves a separate and unique function in the prototyping process. This section explains the 
concepts associated with each class and how they relate to the prototyping process. 

I, Classes in the Database Design. 

a. Prototype. 

The term prototype used in this thesis denotes “a complete executable model 
of selected aspects of a proposed system [Ref. 4:p. 13].” 

A prototv^pe is the highest level class of the design database. Systems under 
development in CAPS cannot be stored in the design database unless a prototype name has 
been entered into the database under which the system w'ill be stored. A prototype can 
consist of numerous versions of a system under development. Each version of the system 
can be a “complete executable model" or a partially developed system that was identified 
as not worthy of further development. An instance of a prototv'pe class represents all the 
versions being developed under that particular protot>'pe name. 

b. Versioned Object. 

“An object is a software component that is subject to change... A version is 
an immutable snapshot of an object. Versions have unique identifiers. New versions can be 
created but versions cannot be modified after they are created [Ref. 8:p. 917]." A versioned 
object can be composite or atomic. A composite object can be decomposed into two or 
more objects. An atomic object cannot be decomposed into other objects. 

When an object, either atomic or composite, is inserted into the design 
database initially, it is assigned the control number sequence “variation 1, version 1”. 

Each object inserted into the database will be assigned a version number. The 
version numbers will be assigned sequentially as the object evolves from one version to the 
next. The exception to this is when a new variation is created. Since versioning is sequential 
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a new variation is created when a versioned object can not version using the next number 
in the sequence. For example, if variation 1, version 3 of object A is modified but variation 
I, version 4 of object A already exists, a new variation will be created. The variation 
number is also assigned sequentially. If the highest variation number assigned is 1, then 
variation 2, version 1 will be assigned to the new object A. 

Figure 2 gives an example of an atomic and a composite object The 
composite object Operator_B decomposes into the atomic objects Op_Bl, Op_B2 and 
Op_B3. 




The initial insertion of the objects to the DDB wUl result in the following 
control number sequence assignments: 

Operator_A Variation 1, Version 1 

Operator_B Variation 1, Version 1 

Op_Bl Variation 1, Version 1 

Op_B2 Variation 1, Version 1 

Op_B3 Variation 1, Version 1 
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These numbers are a part of an object’s properties and determine its 
uniqueness forever. Each versioned object is considered to be created once it has been 
inserted into the DDE. Once created an versioned object cannot be modified. Therefore, for 
each subsequent retrieval of any versioned object, the designer will only receive a copy of 
the versioned object contained in the DDE. If the designer modifies his copy of the 
versioned object, the versioned object will version when inserted back into the DDE. 
Retrieving Operator_A from the DDE, modifying it and inserting it back into the DDE will 
cause the creation of a new version. The new object will be identified as Operator_A 
“variation 1, version 2”. WTien Operation_E is retrieved from the DDE the decomposed 
objects. Op_El, OP_E2 and Op_E3, which make up Operator_E will also be retrieved. If 
Operator_E is modified it will version upon insertion into the DDE. If its decomposed 
objects are not modified they will not version. Figure 3 shows an example in which 
OP_Ela is added to Operator_E and generates an additional output data flow. This 
additional data flow changes Operator_E. but has no effect on any of the decomposed 
atomic objects.; 




The input declarations of to Op_El have not been modified, so no 
modifications are required of Op_El. After the modified objects have been inserted into 
the DDE they will be identified as follows: 
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Operator_B Variation 1, Version 2 

Op_Bla Variation 1, Version 1 

Op_Bl Variation 1, Version 1 

Op_B2 Variation 1, Version 1 

Op_B3 Variation 1, Version 1 

Another modification that could have taken place is the addition of a state 
variable to Op_B2, as shown in Figure 4. In this case OP_B2 and Operator_B will version 
and all the other objects will remain the same. When inserted in the DDB after the previous 
modifications, the objects would be assigned the following control number sequences; 

Operator_B Variation 1. Version 3 

Op_Bl Variation 1, Version 1 

Op_B2 Variation 1, Version 2 

Op_B3 Variation 1, Version 1 

As described in Figure 3 the top level operator has been modified and 
therefore it will version when inserted into the DDB. In Figure 4 only a decomposed atomic 




object is modified. The Op_B2 object is therefore versioned when inserted into the DDB. 
The versioning of the atomic object OP_B2 propagates up the tree versioning each 



13 



successive parent until the root node has versioned. Only those nodes for which Op_B2 is 
a direct descendent will version. 

Objects are not limited to decomposing only to a second level as described in 
the examples above. Op_B3 could be a composite object and not just an atomic object If 
Op_B3 were a composite object, then each of Op_B3’s decomposed objects (composite or 
atomic) would version as described. If Op_B3 were a composite object Operator_B would 
decompose as shown in Figure 5. 




Figure 5. Decomposition to Composite and Atomic Objects. 



An instance of a versioned object represents one version of an operator in the 
protot>-pe system being developed. The versioned object can be atomic or composite. It is 
a operator node in the tree which represents the decomposition of the system under 
development. Each versioned object is uniquely identified by the object's name and the 
objects variation numbers. The variation number is used to separate the Versioned objects 
because the version numbers repeat themselves for each new thread. In each instance of a 
thread the versioned object is unique because it possesses a version number that is a 
minimum distance of 1 from the version number of any other versioned object. 
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c. Thread. 



An instance of a thread corresponds to a variation in the control number 
sequence. The term thread denotes a C++ class used to manage the paths of development 
of a versioned object. The term variation is the equivalent to thread; therefore variation will 
be used in this document where thread is used in the written C++ code. A variation is an 
alternate path of development. A variation contains a totally ordered sequence of versions 
of an object [Ref. 8:p. 918] with strictly increasing creation times. Each version of an object 
belongs to exactly one variation. A new variation will be created if and only if an version 
about to created is not the latest version of the variation. 




Figure 6. Creation of a New Thread (Variation). 



Figure 6 shows a new variation being created. When an object is retrieved 
from the DDE and modified it can version in one of two ways. Depending on the intention 
of the modifications being made, the system will version along the same variation path or 
version and create a new variation path, in other words, a new parallel line of development. 
In figure 6 the notation C(a, b) is used to identify the versioned object. C(a, b) is read as 
version b of variation a of object C [Ref 9:p. 26]. Modifying C(l, n) will create a new 
variation when the following occurs: 

(1) C(l, n) is retrieved from the DDE when C(l, n+1) already exists. 

(2) C(l, n) is then modified by the designer and reinserted into the DDE. 
Since C(l, n+1) already exists and C(l, n) has been modified, this new 

versioned object is reinserted as C(2. 1). This versioned object C(2, 1) is the beginning of 
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a new variation whose beginning versioned object will be C(2, 1). When C(2, 1) is retrieved 
and modified, it wiU follow the same versioning scheme as all versioned objects, and w'ill 
be reinserted as C(2, 2). 

Each thread is uniquely identified by the versioned object’s name and 
variation number. 

d. Configuration. 

A configuration is a selected version of a sub system under development. The 
designer can select any version and place it under a configuration name. The configuration 
contains the entire subtree of the versioned object. The versioned object is a complete sub 
system selected by the designer which contains certain aspects of the system at a point in 
time during the systems evolution. The configuration allows the designer to more 
effectively deal with and identify selected versions of a system under development. 

The configuration represents a version of the system under development and 
therefore can not be modified. 

e. Component. 

A component can be either composite or atomic. The top level view of 
composite components will give a general overview of a system or object. As the 
component decomposes the view’ of the objects become more detailed. A composite 
component can be viewed as a collection of related parts [Ref. 9;p. 2]. Large systems, like 
those which will be developed using CAPS, are made up of top level composite 
components w'ith several layers of other composite components betw'een them and their 
lowest level atomic components. 

Within the DDB a component contains a list of Text Objects which make up 
the composite or atomic operator. The parts of an atomic component are a subset of “.a”, 
“.ps”, “.spec.psdl”, “imp.psdl” generated by the graphic editor. The component is at the 
base of the class hierarchy. The component is a list of pointers to the actual source text, and 
graphic representation data and PSDL code stored in the DDB. The pointers contained in 
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the list point to the files created by the graphic editor and modified by the syntax directed 
editor. These files contain the following information: 

Postscript : Postscript description language required by the graphic 
editor. 

Graph : A file containing shapes and geometric point information 
required by the graphic editor. 

Implementation : A file containing either Ada source code or a PSDL 
decomposition. This file is used by the syntax directed editor, the 
dynamic scheduler and the translator. 

Specification : A file containing PSDL code. This file is used by the 
syntax directed editor, the dynamic scheduler and the translator. 

Source : Ada code. A file containing the source code for the component 
and prototype [Ref. 10:pp. 33-34]. 

A composite component contains information concerning the component of 
the next lower level, wether next lower component be composite or atomic. 

/. Text Object. 

Text object contains the name of the file and the actual source text for the 
operator. The text can be any of the five types pointed to by the component class. 

2. Connections Between Classes. 

The classes of the design database are not independent of each other. Each C-i-i- 
class contains ONTOS based classes that connect that class to other C-t-t- classes or ONTOS 
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classes which make up the database schema. Figure 7 shows a pictorial representation of 
these connections without listing all the fields of the database schema. 




Figure 7. C++ and Ontos Class Connections. 

These connections between classes are described in detail in chapter in section C. 

C. OTHER ATTEMPTS AT ENGINEERING DESIGN DATABASES. 

“The goals of configuration management include recording the development history 
of evolving systems, maintaining the integrity of such systems, and aiding the management 
of the systems in guiding and controlling their evolution [Ref. 8:p. 918].” 

Until recently most attempts at providing support for configuration management 
consisted of a combination of manual and administrative procedures. This type of 
configuration management was labor and time intensive and prone to errors. Attempts at 
automating the process led to storing many versions of the same document and keeping up 
to date mechanically derived software. 

One attempt at maintaining the integrity of configurations is addressed in the module 
interconnection languages. “This purpose of the module interconnection language is to 
record the interdependencies between components of a system [Ref 8;p. 918].” This 
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includes keeping track of functional specifications and structural and syntactic properties. 
The module interconnection language only deals with specifications and programs. 
Another attempt [Ref. 14] supports upward compatibility, strict compatibility and 
implementation compatibility. Implementation compatibility is a weaker restriction than 
strict compatibility which allows the substitution of specifications within particular 
contexts. Maintaining mechanically-derived software is another effort that has been under 
taken [Ref. 15]. 

The shortcomings of these efforts is that they only deal with the most current version 
and not all the versions leading up to the current version [Ref. 8:p. 919]. 

Luqi [Ref. 8:pp. 919-921] describes the Model of Software Manufacture and the 
Model of Software Evolution which support configuration management. 

The aim of the Model of Software Manufacture is to aid in the managing of 
mechanically derived objects, with reducing the number of objects that must be rebuilt in 
response to a change. Also it attempts to estimate the computing cost of implementing the 
change. 

The Model of Software Evolution attempts to integrate software evolution and 
configuration management. This work is based on the ANSI/IEEE standard on Software 
Configuration Management [Ref. 8:p. 921]. 
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III. IMPLEMENTATION OF A DESIGN DATABASE FOR CAPS 



A. OBJECTIVES. 

The design database currently being used to support the CAPS environment was 
developed by Dwyer and Lewis [Ref. 10]. This design database will be identified as the 
“current” database while the design database developed in this thesis w'ill be called the 
“new” database. 

The current Design Database does not meet all the requirements necessary to support 
CAPS. The requirements that it does support need to be enhanced or redesigned while other 
functions need to be developed in order to fulfill the requirements established by CAPS. 

The schema for the design database needs to be redesigned in order to meet the 
requirements to support variation and version control. The current design database 
structure stores versions in a linear progression. VvTien an object is retrieved from the 
database, modified and reinserted, it versions but it will never create a new variation. If 
version 2 of object A is retrieved from the current database and modified- and version 3 of 
object A already exists, version 2 will be reinserted into the current database as version 4 
of object A. Since here is no link between (object A version 2). and (object A version 4) it 
can not be determined that version 4 came from version 2. The new database must provide 
the functionality to support variations as described in chapter 2. 

All operations that access the design database need to be redesigned. The current 
operations only access objects on a single development path. One of the requirements for 
the CAPS design database is to possess the ability to create and store alternate paths of 
development. Each new path is a new variation of an existing object. Each variation 
contains sequentially numbered versions of an object. 
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The current database creates new versions of an object based solely on the time stamp 
of the object. This allows objects to version when no actual changes have taken place. Each 
object needs to be evaluated based on changes in content and not on an external time stamp. 

A historical trail operation is required to trace the development of any object back to 
its original root object. This requirement is necessary because the new database design will 
be based on a tree structure with variations being capable of branching off any object. The 
need to know the evolution of an object is important when making decisions concerning 
future development. 

After an object is reinserted into the current database, a copy of the object still remains 
in the designers working directory. When an object has been successfully inserted into the 
database, the copy remaining in the designers working directory needs to be removed. 

The current design database does not fully support the ability to choose selected 
versions of different objects and place them together to develop a new system. This 
requirement is necessary to avoid rebuilding a section of a system that has already been 
designed and tested. 

Currently objects which the designer wants for view only, are retrieved from the 
database and stored in the designers working directory in read only mode. This requires that 
they later be removed by the user in order to retrieve the object for editing. This is an 
unnecessary requirement placed on the designer. Access to all objects in the design 
database, for view or for modification should require no additional w ork on the part of the 
designer other then issuing commands to insert or retrieve objects. 

The addition of variations to the development path makes much of the current design 
database code obsolete and dangerous. Inadvertent execution of obsolete code can cause 
system failure, data corruption, or numerous other problems without the user being aware 
that a problem has occurred. This code needs to be studied, identified and removed while 
valid code is left intact 
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B. METHODOLOGY. 



All design methodologies share a similar path of development at a certain time during 
the project life cycle. Every project goes through the activities of system analysis, design, 
and implementation, even if the names given the activities are different for each 
methodology used. The classical project life cycle, also know as the “waterfall life cycle” 
has stages known as Analysis, Program Design, Coding, Testing, and Operations. The 
semi- structured life cycle is composed of activities named Analysis, Structured Design, and 
Top-Down Implementation. The Structured Design activity is further decomposed into 
Codify Functional Specification, Derive Structure Chart, Design Module, and Package 
Design. The structured project life cycle contains activities such as Analysis, Design, 
Implementation, Acceptance Test Generation, Quality Assurance and Installation. 

The activities listed above are not all of the activities of the project life cycle 
methodologies named above. They only represent a part of the system life cycle in which 
the work being done on the system is similar in nature no matter which methodology is used 
to develop the system. The areas that they represent are the design, coding, testing and 
implementation activities. The actual implementation of these individual activities is what 
separates the different methodologies [Ref. 12;pp. 77-101]. 

Yourdon [Ref. 12;p. 94] points out that more then one activity can occur at a time in 
the structured project life cycle. Depending on the number of activities occurring at any one 
time it will be known as a radical or conservative implementation of the project life cycle. 

Douglas [Ref. 1] conducted the survey and requirements analysis to establish the 
needs of the design database. Dwyer and Lewis [Ref. 10] expanded on the requirements 
analysis established by Douglas. They also designed, implemented and tested some of the 
functions established by the requirements analysis. A review of their thesis shows a 
structured life cycle approach was taken. 

The issues dealt with in this thesis were the design of a new database structure, that 
being the redesign of the way in which the objects are stored and retrieved. We have 
designed a new database schema to support the new database structure. Because the 



22 



attribute keys for the objects were altered, the insertion and retrieval of objects from the 
database also had to be redesigned. 

The comparison of the objects based on content had to be implemented. Versioning of 
objects based on the value of a time stamp is unacceptable. 

The project life cycle methodology used for this thesis is best described as a 
moderately radical structured approach [Ref. 12:p. 95]. The design of new and redesign of 
existing structures along with implementation and testing all had to occur at the same time. 
Each new function and modification of existing functions had to be tested to evaluate their 
effect on other functions and objects. All modifications to existing functions had to be 
noted and reflected and placed as updates in the users manual. Of the nine activities that 
Yourdon [Ref. 12:p 89] lists as part of the structured project life cycle, four of them were 
simultaneously being implemented during the development of the new design database 
These four activities are design, implementation, acceptance test generation and quality 
assurance. 

C. DESIGN DECISIONS AND JUSTIFICATIONS. 

1. Database Schema. 

The database schema of the new design database is made up of user defined and 
pre-defined ONTOS C++ classes [Ref. 11]. The manipulation of these C++ classes allows 
the user to add, delete or modify objects stored in the design database. The design database 
is made up of six user defined classes. Within these six classes there are two ONTOS 
defined classes which help support the tree structure necessary to maintain variations and 
versions. The user defined classes are derived from the ONTOS class Object. The six user 
defined classes are; 

Component 

Configuration 

Prototype 

Text_Object 
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Thread 



Versioned_Object 

The ONTOS classes used within in the user defined classes are; 

Dictionary 

List 

The relationship between these classes is a spider web of pointers, Figure 7. 

The Prototype class is at the top level of the hierarchial design structure. This class 
has pointers to Configuration and Text_Object user defined class objects and to an ONTOS 
class Dictionary object. The Configuration object holds the default configuration for the 
prototy’pe. There may be many configurations attached to a prototype but the Configuration 
pointer points to the latest configuration attached. All the other configurations attached to 
the protot>T5e are accessed through the Dictionary object. The default (latest) configuration 
has its own pointer but a pointer to this configuration is also placed in the Dictionary class. 
The Dictionary class contains pointers to all the Configurations attached to the prototype. 
A Text_Object object contains the text description of the Protot>T)e. Figure 8 gives a 
pictorial representation of the Prototype class and its member classes. Other data fields are 



Prototype 






- 




Dictionary 


^ Configuration 


Configuration 

Text_Object 





Figure 8. Prototype class and internal classes. 



also contained within Prototype and are used for accounting and historical information. The 
Prototype class has no other classes pointing to, or accessing its data. 
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The Configuration class points to Versioned_Object and Text_Object objects. 
Configuration points to two instances of Text_ObJect. The first instance contains the 
configuration description provided by the designer. The other instance contains log entries. 
Log entries are additional information concerning the makeup of the configuration. The 
Versioned_Object pointer points to the versioned object which is the root node of a tree or 
sub tree to be identified by a unique configuration name. The unique configuration name 
can identify an entire system or any subtree of a system. The Versioned_Object identified 
by the configuration name can be accessed for view or editing. If a Versioned_Object is 
modified when retrieved using the configuration name, the Versioned_Object will version 
but the Configuration name will not reflect the new version. 

For example, variation 1, version 3 of object A is identified by the unique 
configuration name config_l. Variation 1, version 3 of object A is retrieved from the 
database using the name config_l. After the modifications have been completed and 
config_l is reinserted into the database, the configuration name, config_l will still point to 
variation 1, version 3 of object A. Meanwhile a new object has been created, and is 
identified as variation 1, version 4 of object A. 

All other data fields contained in the Configuration class are used for accounting 
and historical purposes. Configuration is pointed to and accessed from Prototype. Figure 9 
gives a pictorial representation of the Configuration class and the class member objects 
contained within it. 




Figure 9. Configuration and its internal classes. 
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The Component class, figure 10, contains only one element, the ONTOS defined 
List class. The List object contains a list of pointers to instances of Text_Objects. The 
Text_Objects contain information detailing wether the component is composite or 
atomic.The Component class is a container class for Text_Objects. A Component class can 
contain any number of Text_Objects. 

The Text_Object class, figure 10, is at the bottom of the hierarchial class 
structure. The Text_Object class contains two character string pointers. All “.a”, “.graph”, 
“.spec.psdl”, “.imp.psdl” “.as”, log and description entries are contained in Text_Objects. 
One character string pointer points to a file name, the other to the file containing the actual 
text. Because of required access to text files, Text_Object is pointed to by Prototype, 
Configuration, Versioned_Object and List classes. Each instance of Text_ObJect, 
depending w hich class points to it, contains a different type of text. 

The Versioned_Object class, figure 1 1 , is a class w hich points to, or is accessed by 
almost every other class in the database. The Versioned_Object class is the crossroads of 
the design database structure. The Versioned_ObJect points to other Versioned_Objects. 
Text_ObJects, Components, a Thread, a List and two instances of Dictionary classes. It is 
pointed to by Versioned_Object, List, Configuration and Dictionary classes. 




One Dictionary object contains the pointers to the first Versioned_Object of each 
new Thread. The other Dictionary object contains pointers to all the Threads which contain 
Versioned_ObJects which versioned off this particular Versioned_ObJect. The List class 
contains the pointers to all the Versioned_ObJects which are children of this 
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Versioned_Object. The Thread pointer points to the Thread that the Versioned_Object is 
attached. 




Figure 11. V Object class and internal classes. 



The Component pointer points to the List object, which contains pointers to 
Text_Objects associated with this Versioned_Object. The Versioned_ObJect pointer points 
to the Versioned_Objects parent if it is not the root node, otherwise the pointer is null. The 
Text_Object points to a description of the Versioned_Object provided by the designer. 

The Thread class, figure 12, is similar to the Component class for the reason that 
it is a container class for Versioned_Objects. The Thread class contains accounting data, 
historical data and a List class object. The List object points to Versioned_Objects attached 
to the Thread. Thread is pointed to by Versioned_Object. The thread class is the C++ 
equivalent of a variation. 

2. New Versions and New V'^ariations, 

Each time an object is modified by the designer it will version. The new object 
created will be a copy of the object retrieved from the database incorporating the 
modifications made by the designer. The new object can take one of two separate paths of 
development. The new object can become a new version, and continue on the current path 
of development or the new object could become the first version of a new variation. A 
modification of an object at any level will propagate changes up the tree to the root object. 
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Because a node on a subtree has changed the functionality of the entire tree has also 
changed and therefore versioning of the entire tree must take place. 
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Thread 




Dictionary 




V_Object 



Figure 12. Thread class and its internal classes. 

The current design database creates a new version based on the value of the 
objects time stamp. The time stamp is updated for an object each time the object is accessed 
while in the designers working directory. This does not mean that the object has been 
modified, just accessed. When inserting the object into the design database the current 
database compares the time stamp of the object being inserted against the time stamp of the 
object in the database. If the value of the time stamps are different, a new version of the 
object will be created. This process does not take into consideration the actual contents of 
the object. Versioning is dependent upon an external time stamp variable. 

The new design database compares the contents of the objects and creates a new 
version if the actual contents of the objects are different. Since an atomic object, at a 
minimum, consists of between one and five Text_Objects contained in the Component 
class, each Text_Object is compared individually. If the contents of any one of the possible 
five Text_Objects is different from the contents of the corresponding Text_Object, of the 
object stored in the database, then the object will version. The new design database then 
will insert into the database the new object from the designer's working director)'. 

Each versioned object is contained on a thread. A thread is the C++ class 
representation of a variation. When a new object is created, (if no new variation is created) 
it is made unique by creating it with a version number one higher then the previous object. 
The name given the object is the same as the operator name assigned the object in the 
graphic editor. 

A new variation will be created when an object being inserted into the database 
has been modified and there exists an object with a higher version number, on the same 
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thread, of the object being inserted. The modified object will become the first versioned 
object of the new variation. The thread is given a unique name by concatenating the object 
name and the variation number. The thread that contains the operator 
c3i_system.sensor_interface, variation 1, version 2 is actually identified in the database as 
c3i_system.sensor_interface_l. All the versions that make up variation 1 of 
c3i_system.sensor_interface are contained in the thread c3i_system.sensor_interface_l. 

If the conditions for the creation of a new variation are met, the new variation will 
be identified in the database as c3i_system.sensor_interface_2. The thread has been made 
unique by appending the variation number to the object name. This thread/variation will 
contain only versions of the c3i_system.sensor_interface object. The 
c3i_system.sensor_interface objects can be assigned version numbers that were assigned in 
previous thread/variations because they are attached to a different and unique thread/ 
variation. 

3. History Trail. 

The historical trail as implemented in the new design database is extremely 

simple. 

The current design database had no need for a historical trail. Since it handled 
only one variation, the history of each version is simple. The current version is assumed to 
have been created from the previous version. With the inclusion of variations the historical 
trail of object development becomes more complicated. Each new variation created 
requires a link back to its parent object. 

The new design database now lists the versions of any selected versioned object 
in reverse chronological order from the given to the root object. 

4. Objects in the Working Directory and the Concerns of the Design Database. 

The new design database places object control files in the designers working 
directory. These files in no way interfere with the designers ability to retrieve objects from 
the database, but they do provide control data to the database when reinserting an object 
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into the database. When the command is issued to retrieve an object from the database the 
operator name along with the variation and version numbers provided on the command line 
identify the root object to be placed in the designers working directory. Any children 
(objects), subtrees attached to the root object identified on the command line will also be 
retrieved from the database and placed in the designer’s working directory. For each object 
placed in the designer’s working directory a database control file is written to the directory 
also. The control file contains the variation and version numbers of the object that has been 
retrieved. The designer will not see this control file when accessing the objects via the user 
interface or the command line. The control data file name is made up of the complete object 
name prefixed by “ddbCtrlData.” The complete object name is a concatenation of all the 
object names as they decompose to the object. For example, the c3i_system, 
c3i_system.sensor_interface and c3i_system.sensor_interface.add_sensor_data will have 
the following control files: 

ddbCtrlData.c3i_system 
ddbCtrlData.c3i_system.sensor_interface 
ddbCtrlData. c3i_system.sensor_interface.add_sensor_data 
WTien the objects are being reinserted into the database each object has its control 
file readjust prior to being reinserted. The DDBMS uses the information contained in the 
control file to locate the object in the database. Once located, the necessar>’ comparisons 
can be conducted to establish wether a new object needs to be created. 

The control files are removed from the directory after the appropriate action has 
been taken to create or not create a new object. 

Under the current design database, copies of all object inserted into the database 
remain in the designer’s working directory. If the designer wants, at some later time, to 
retrieve the same object or a different variation/version of the object, the copies have to be 
removed. If all the copies are not removed, some objects will be retrieved from the database 
and others will not. Once the database attempts to write an object to a directory with an 
object of the same name already existing in that directory, the wxite fails and the DDBMS 
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stops retrieving objects from the database. The objects that have been successfully wTitten 
to the directory are now locked by the database and the complete object tree has not been 
retrieved from the database. The designer has only one option, remove all the objects just 
retrieved from the working directory along with the duplicate object. Issue a release lock 
sub tree command to release the locks of the objects just retrieved and initiate a new 
retrieval. 

The new design database removes all copies of objects from the designers 
directory after successful insertion of the object into the database. 

If for some reason a copy of an object remains in the designer's directory and then 
the object is later retrieved the DDBMS will ask the designer if they want the old copy to 
be overwritten. If the designer responds yes, overwrite, the DDBMS overwrites the object 
in the designers directory and continues to retrieve objects from the database. If the 
designer responds no then the same procedure as the current database must be followed. 

5. Viewing and Editing Objects in the Working Directory. 

Depending on the parameter passed to the database, any versioned object 
retrieved will be either be read only (view) or editable. If the r or R option is used, the 
versioned object retrieved will be placed in view mode. The designer will be able to access 
the system and all its components, but will not have the capability to alter any of the 
object's contents. The objects retrieved using the view option will be sent to standard out. 
The user interface will then redirect the output from the database to an appropriate 
directory. The directory w'here the system components will be stored will not be the 
designers working directory. Under the current implementation of the design database, the 
system selected to be viewed is placed in the designers working directory with file 
permission set for read only. This setup later causes additional work for the designer. When 
the same system is retrieved from the database for purposes of editing, the existing read 
only files will not allow the database to store the retrieved data in the working directory. 
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This causes the retrieval to terminate. TTie designer then has to delete each object before 
being able to retrieve the system for editing. 




WTien retrieving an object for editing the w or W option is used. The object 
retrieved is placed in the designers working directory. The object and all its components are 
now available for editing or viewing. The designer now has full control over the object 
retrieved from the design database. If two or more designers want to work on different 
sections of the same object tree, in their own directories, each can retrieve from the design 
database the section of the object they will work on. When a tree or subtree of an object is 
retrieved from the database it is locked and then available for view only to all other 
designers. The other designers working on the system can retrieve the locked sections of 
the object for view only and have a complete view of the object while actually working on 
only a part of the object. Figure 13 show how a system could be split up among the 
designers. 
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6. Dangerous Obsolete Code. 

The necessity to modify, enhance and redesign the existing design database in 
order to bring it up to the established requirements of the CAPS system, entailed the 
detailed study of existing code. Although some of the functions are reusable as written, 
most of them required extensive modifications or needed to be completely rewritten. 

As code was modified or added, an examination of the code in the immediate area 
was reviewed for potential problems. Required changes were made where necessary, 
deletions were made if necessary and test of all changes were conducted. All code found to 
be obsolete was removed. As much as possible obsolete code has been identified and 
removed. 

D. TESTING AND TEST RESULTS. 

Frakes [Ref. 13;p. 125] lists three definitions of software testing. The definition which 
best describes the testing performed on the new design database is “any activity aimed at 
evaluating an attribute or capability of a program or system and determining that it meets 
its required results.” 

Four stages of testing are expected to be traversed before a system can be accepted. 
Tliey are; 

unit testing 
integration testing 
system testing 
acceptance testing 

The new design database has undergone three of the four test stages. 

Unit testing, the testing of a single function, was conducted on each function wxitten 
or modified. Each function was accessed via the command line to ensure that the function 
performed according to its specifications. No function was tested independently, but 
required the interaction of other functions, to call or be called, to complete the actual 
execution of the command. 
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Integration testing was conducted when new functions were required to be designed 
and implemented. The new functions were grouped together, according to their 
functionality, and tested to check for mutual interference or data corruption. 

The acceptance test was conducted in the form of a demonstration of the capabilities 
of the new design database using systems developed by other designers. 

The system test, where the system is integrated with the user interface and tested, has 
not been conducted. 

Because of the amount of code already written and the large number of required 
changes that had to be implemented, regression testing was only test strategy that was 
acceptable to use. 

WTienever code is modified or inserted to correct a problem or enhance the system one 
of four things may occur: 

1 . TTie problem is fixed or the enhancement is successful. 

2. The problem was not corrected or the enhancement is not as successful as 
planned. 

3. The problem is fixed or the enhancement is successful, but a new problem has 
been introduced. 

4. The problem was not corrected or the enhancement is not successful, and a 
new problem has been introduced [Ref. 13:p. 137] 

Since only the first result is acceptable, tests were conducted over and over again each 
time a modification was implemented. Regression testing was not implemented for each 
change made but rather for each group of changes and additions made for a localized 
functionality. A shell script was constructed to aid in this consuming and cumbersome 
testing procedure. 

The shell script and test results are listed in appendix C. 
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IV. RECOMMENDATIONS AND CONCLUSIONS 



; A. SUMMARY 

Although the main goals of this thesis were met, the implementation of variation and 
I version control, there are numerous smaller problems that exist which are annoying to the 
j designer and detract from the capabilities of the design database. 

I B. RECOMMENDATIONS FOR FUTURE WORK 

( 

' The system suffers from unhandled exception errors. All exceptions should be caught 
I and the system gracefully shut down or have other appropriate action. Examples of errors 
that shut the system down are; 

Inserting an object into the database with no object in the directory. 

Using variation and version numbers that do not exist for an object. 

If the design database successfully terminates but an error was detected prior to 
termination the DDBMS will still commit the objects to the database. For example, the 
retrieval of objects is terminated if an object of the same name is in the designer's directory. 
The designer has the option to overwrite the object if they choose to but if they choose not 
to, the objects already retrieved are locked. The designer's directory now contains all 
objects successfully retrieved prior to the error. These objects are only a part of the object’s 
tree. The database is updated to lock all the objects successfully retrieved. Since the 
retrieval of the entire object tree was not successful the DDBMS should not update the 
design database. 

The dependency on control files in the designer's working directory should be 
removed. All the required information for an object is in the database. If the root object is 
known the each of the children objects can be identified. 
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The ability to access objects and their data via versioned object commands and 
configuration commands is redundant. The configuration commands can be removed and 
all access could be through versioned object commands. 

The DDB schema should be reworked to simplify insertions and take advantage of 
subclasses and inheritance. 

If a object identified by a configuration is modified, the configuration should identify 
the new object. This should occur if the object was accessed by the configuration name. 

Configurations appear to have limited usefulness. The design of the DDB and its role 
in CAPS should be reviewed to determine wether the concepts and structures related to 
configurations can be remover from the DDB. 
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APPENDIX A 



A. ENTITY-RELATIONSHIP (ER) SCHEMA DIAGRAM 




37 



B. DATABASE SCHEMA 



THREAD 

Current_Version, {The_list) 

TEXT_OBJECT 
The_file_name, The_text 

PROTOTYPE 

Leader, Dictindex, CreationDate, {ConfigurationList}, Description, DefaultConfig 
CONFIGURATION 

Status, Manager, CreationDate, VobjectNum, Log, Description, Versioned_Object 

COMPONENT 

{Text_object_list} 

VERSIONEDOBJECT 

VariationNum, VersionNum, CreationDate, LockTime, NodeName, Creator, Worker, 
Visit, Last_Op_Checkin, Description, {ThreadPtr}, {ComponentPtr}, {ChildPtr}, 
ParentPtr, { VariationList}, NumberOfVariations, {VariationReference} 



Multivalued attributes are shown between set braces { }. 
There are no composite attributes. 
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APPENDIX B 



COMMAND LINE COMMANDS 



A. PROTOTYPE COMMANDS 

Table 1; PROTOTYPE COMMANDS 



Tag 


Description 


Output 


Command Line^ 


PIP 


Insert Prototype 




ddb <db> pip <p>*^ 
[leader] [description]^^ 


PLN 


List Names 


Names (one per line) 


ddb <db> pin 


PLL 


Long List 


Name, Default Config. 
Default VOBJECT 


ddb <db> pll 




Retrieval Commands: 






PDS 


Dump Summary 


Date Created 
Leader 

Default Config 
Description 


ddb <db> pds <p> 


PRD 


Retrieve Date 


Date Created 


ddb <db> prd <p> 


PGL 


Get Leader 


Leader 


ddb <db> pgl <p> 


PGC 


Get Configuration 


Default Config 


ddb <db> pgc <p> 


PGD 


Get Description 


Description 


ddb <db> pgd <p> 




Update Commands: 






PUL 


Update Leader 




ddb <db> pul <p> 
<“new leader”> 


PUD 


Update Description 




ddb <db> pud <p> 
<filename> 



a. <> Angle brackets are required parameters. U bquare brackets are optional parameters. 

b. <db> db = Ontos Database name. <p> p = Prototype name. 

c. Passed in as a filename or string. 
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B. CONFIGURATION COMMANDS 




Table 2: CONFIGURATION COMMANDS 



Tag 


Description 


Output 


Command Line^ 


CIC 


Insert Configuration 




ddb <db> cic <p> 

<c>^[manager] 

[description]^ 


CLN 


List Names 


Names 


ddb <db> cln <p> 


CLV 


List Default VOBJECT 


Name, Version 


ddb <db> civ <p> <c> 


CLO 


List Operators 


Operator Name,^^ 
Version 


ddb <db> do <p> <c> 


CLL 


Long List Default 
VOBJECT’s Children 


Node^ Name, 
Version 


ddb <db> cll <p> <c> 




Retrieval Commands: 






CDS 


Dump Summary 


Date Created 
Date Changed 
Manager 

Default VOBJECT/ 

Version 

Description 


ddb <db> cds <p> <c> 


CDA 


Get Date Created 


Date Created 


ddb <db> cda <p> <c> 


COM 


Get Manager 


Manager 


ddb <db> cgm <p> <c> 


CGD 


Get Description 


Description 


ddb <db> cgd <p> <c> 


CGL 


View Log 


Log Entries 


ddb <db> cgl <p> <c> 




Update Commands: 






CUN 


Update Name 




ddb <db> cun <p> <c> 
<new name> 


CUM 


Update Manager 




ddb <db> cum <p> <c> 
<new_name> 


CUD 


Update Description 




ddb <db> cud <p> <c> 
<filename> 
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Table 2: CONFIGURATION COMMANDS 



Tag 


Description 


Output 


Command Line^ 


CPL 


Post Log 




ddb <db> cpl <p> <c> 
<filename> 


CRL 


Release Lock 




ddb <db> crl <p> <c> 


CAA 


Update VOBJECT’s 
subtree 




ddb <db> caa <p> <c> 


CAO 


Attach VOBJECT to 
CONHCURATION 




ddb <db> cao <p> <c> 
<vobject> 

[variation] [version] 




Extraction Commands: 






CDT 


Dump VOBJECT subtree 


file(s) 


ddb <db> cdt <p> <c> 
RAVS 



b. <db> db = Onlos Database name. <p> p = Prolot>T)e name. <c> c = Configuration name. 

c. Passed in as a filename or string. 

d. Operator name containing explicit path information for determining location (level) in heirar- 
chical data structure. 

e. Node name contains no reference to location (level) in heirarchicai data structure 

f. Log file is read only. Log can only be updated. Additional log entries are appended to the bot- 
tom of the current log. 

g. R for View Only (Read). W for edit (Write). 
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C. VERSIONED COMPONENT COMMANDS 



Table 3: VERSIONED COMPONENT COMMANDS 



Tag 


Description 


Output 


Command Line^ 


VAA 


Add VOBJECT and 
Subtree 


Confirmation 


ddb <db> vaa <p> <v>*’ 
[variation] [version] 


VLO 


List Operators 


VOBJECT Name,^ 
Variation. Version 


ddb <db> vlo <p> <v> 
[variation] [version] 


VLL 


Long List VOBJECT’s 
Children 


VOBJECT Name,*^ 
Variation, Version 


ddb <db> vll <p> <v> 
[variation] [version] 


VLP 


Long List VOBJECT's 
Parent and Siblings 


VOBJECT Name 
Variation, Version 


ddb <db> vlp <p> <v> 
[variation] [version] 




Rerrievat Commands 






HTT 


History Trace 


VOBJECT Name 
Variation, Version 


ddb <db> htt <p> <v> 
[variation] [version] 


VDS 


Dump Summary 


Date Created 
Creator 
Worker 
Lock Time 
Description 


ddb <db> vds <p> <v> 
[variation] [version] 


VDD 


Get Date Created 


Date Created 


ddb <db> vdd <p> <v> 
[variation] [version] 


VGL 


Get Lock Time 


Date, Time Locked 


ddb <db> vgl <p> <v> 
[variation] [version] 


VGV 


Get Versions 


VariatiortWe rsion 
Number (one per line) 


ddb <db> vgv <p> <v> 


VGD 


Get Description 


Description 


ddb <db> vgd <p> <v> 
[variation] [version] 




Update Commands: 
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Table 3: VERSIONED COMPONENT COMMANDS 



Tag 


Description 


Output 


Command Line^ 


VUD 


Update Description 


e 


ddb <db> vgd <p> <v> 
<filename>' 
<variation> <version> 


VRO 


Release Lock Operator 




ddb <db> vro <p> <v> 
[variation] [version] 


VRS 


Release Lock Operator 
and Subtree 




ddb <db> vrs <p> <v> 
[variation] [version] 




Extraction Commands: 






VGP 


Get Postscript 


Display Postscript File 


ddb <db> vgp <p> <v> 
[variation] [version] 


VGG 


Get Graphics 


Display Graphics File 


ddb <db> vgg <p> <v> 
[variation] [version] 


VGI 


Get Implementation 


Display 

Implementation File 


ddb <db> vgi <p> <v> 
[variation] [version] 


VGC 


Get Specification 


Display Specification 
File 


ddb <db> vgc <p> <v> 
[variation] [version] 


VGS 


Get Source 


Display Source Code 
FUe 


ddb <db> vgs <p> <v> 
[variation] [version] 


VDF 


Dump Operator 
Atomic^ 


file(s) 


ddb <db> vdf <p> <v> 
<R/W> 

[variation] [version] 


VDT 


Dump Operator and 
Subtree 


file(s) 


ddb <db> vdt <p> <v> 
<R/W> 

[variation] [version] 



b. <db> db = Ontos Database name. <p> p = Proiotvpe name. <v> v = Vobjeci name. 

c. Operator name containing explicit path information for determining location (level) in heirar- 
chical data structure. 

d. Node name contains no reference to location (level) in heirarchical data structure. 



e. 

f. File containing description. 

g. Atomic is considered a node containing .ps .graph .imp.psdl .spec.psdl and .a file(s). 
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APPENDIX C 



A. TEST SCRIPT FILE. 

This test was run with the aid of a shell script. The shell script is listed in section C. 

All design database command line commands begin with the word “main”. The result of 
each command is displayed after each command line. If the line following a command line 
is blank, then there was no output for that particular command. The results of the command 
are accessible from others commands. For example, the first command executed is “pip”, 
insert prototype name. There are no output results for this command to displayed, so the 
line following the command will be blank. The actual commands displayed are produced , 
using echo, and only represent the command executed. For that reason any string in single '* 
quotes (‘’) should actually be placed in double quotes (“”). 

START COMMAND LINE TEST 

main oloughln pip c3i_system_prototype ‘Michael D. O’Loughlin' descp 

main oloughln pin 

protot>T?e_c3i_system 

c3i_system_prototype 

main oloughln pll 

prototype_c3i_system 

c3i_system_prototype 

main oloughln pgd c3i_system_protot\q3e 

This is a test file added to the design database for example purposes. 

Any thing can be added to it, and nothing can be expected back. 

main oloughln pud c3i_system func_descnption 

main oloughln pgd c3i_system_prototype 

This file is a test file so that all commands that access or affect the description 
can be tested. 

All Phototype operations have been tested successfully. 

Adding to configuration description. 

All Phototype operations have been tested successfully, EXCEPT : 
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Removing operators CRL and CAA from cofiguration command. 

Adding to Versioned component description. 

main oloughln prd c3i_system_prototype 
Mon Jun8 14:50:24 1992 

main oloughln pgl c3i_system_prototype 
Michael D. O’Loughlin 

main oloughln pul c3i_system_prototype ‘Larry Williamson’ 

main oloughln pgl c3i_system_protot>T)e 
Larry Williamson 

main oloughln pds c3i_system_prototype 
Mon Jun8 14:50:24 1992 
Larry Williamson 

This file is a test file so that all commands that access or affect the description 
can be tested. 

All Prototype operations have been tested successfully. 

Adding to configuration description. 

All Prototype operations have been tested successfully, EXCEPT : 

Removing operators CRL and CAA from cofiguration command. 

Adding to Versioned component description. 

main oloughln cic c3i_system_prototype c3i_config_l ‘Michael D. O’Loughlin’ 

descp 



main oloughln cln c3i_system_prototype 
c3i_config_l 

main oloughln cda c3i_system_prototype c3i_config_l 
MonJun8 14:50:54 1992 
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main oloughln cgm c3i_system_prototype c3i_config_l 
Michael D. O’Loughlin 

main oloughln cgd c3i_system_protot>T5e c3i_config_l 

This is a test file added to the design database for example purposes. 

Any thing can be added to it, and nothing can be expected back. 

main oloughln cum c3i_system_prototype c3i_config_l ‘Marty Shoppenheimer’ 

main oloughln cgm c3i_system_prototype c3i_config_l 
Marty Shoppenheimer 

main oloughln cud c3i_system_prototype c3i_config_l func_description 

main oloughln cgd c3i_system_protot>7)e c3i_config_l 

This file is a test file so that all commands that access or affect the description 

can be tested. 

All Protot>'pe operations have been tested successfully. 

Adding to configuration description. 

All Protot>'pe operations have been tested successfully. EXCEPT : 

Removing operators CRL and C.A.A from cofiguration command. 

Adding to Versioned component description. 

main oloughln cpl c3i_system_protot\7)e c3i_config_l This is the first Post to 
c3i_system Log’ 

main oloughln cgl c3i_system_prototype c3i_config_l 

Mon Jun 8 14:51:18 1992 

This is the first Post to c3i_system Log 

main oloughln cpl c3i_system_prototype c3i_config_l ‘This is the second Post to 
c3i_config_l Log’ 

main oloughln cgl c3i_system_prototype c3i_config_l 
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MonJunS 14:51:18 1992 



TTiis is the first Post to c3i_system Log 

MonJunS 14:51:23 1992 

This is the second Post to c3i_config_l Log 

main oloughln cln c3i_system_prototype 
c3i_config_l 

main oloughln cds c3i_system_prototype c3i config 1 
Mon Jung 14:50:54 1992 
Marty Shoppenheimer 

This file is a test file so that all commands that access or affect the description 
can be tested. 

All Prototype operations have been tested successfully. 

Adding to configuration description. 

All Prototype operations have been tested successfully. EXCEPT : 

Removing operators CRL and CAA from cofiguration command. 

Adding to Versioned component description. 

main oloughln vaa c3i_system_prototype c3i_system 
c3i_system 

main oloughln pll 

prototype_c3i_system 

c3i_system_prototypec3i_config_l 

main oloughln vlo c3i_system_prototype c3i_system 
c3i_system.comms_interface.convert_to_text_file 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.decide_for_archiving 1 1 
Wed Dec 31 16:00:00 1969 
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c3i_system.comms_interface.extraci_tracks 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.forward_periodic_report 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.make_routing 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.parse_input_file 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.prepare_periodic_report 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_links 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.navigation_system 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.sensor_interface.analyze_sensor_data 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.sensor_interface.prepare_sensor_track 1 1 

Wed Dec 31 16:00:00 1969 

c3i_system.sensor_interface 1 1 

Wed Dec 31 16:00:00 1969 

c3i_system.sensors 1 1 

Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.add_comms_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.add_sensor_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.filter_comms_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.filter_sensor_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.monitor_ownship_position 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.track_database_manager 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.display_tracks 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.user_interface.emergency_status_screen 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.get_user_inputs 1 1 
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Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.manage_user_interface 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.user_interface.message_arrival_panel 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.message_ediior 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.status_screen 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.weapons_interface 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.weapons_systems 1 1 
Wed Dec 31 16:00:00 1969 

main oloughln vll c3i_system_protot>T3e c3i_system 



comms_interface 1 1 

comms_links 1 1 

navigation_system 1 1 

sensorjnterface 1 1 

sensors 1 1 

track_database_manager 1 1 

user_interface 1 1 

weapons_interface 1 1 

weapons_systems 1 1 



main oloughln vlo c3i_system_protot>'pe c3i_system.comms_interface 
c3i_system.comms_interface.convert_to_text_file 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.decide_for_archiving 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.extract_tracks 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.forward_periodic_report 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.make_routing 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.parse_input_file 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.prepare_periodic_report 1 1 
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Wed Dec 31 16:00:00 1969 



main oloughln vll c3i_system_prototype c3i_system.comms_interface 
convert_to_text_file 1 1 

decide_for_archiving 1 1 

extract_tracks 1 1 

forward_periodic_report 1 1 

make_routing 1 1 

parse_input_file 1 1 

prepare_periodic_report 1 1 

main oloughln vlo 

c3i_system.comms_interface.convert_to_text_file 

main oloughln vll 

c3i_system.comms_interface.convert_to_text_file 

main oloughln cao c3i_system_protot>^e c3i_config_l c3i_system 1 1 
main oloughln do c3i_system_protot>'pe c3i_config_l 
c3i_system.comms_interface.convert_to_text_file 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.decide_for_archiving 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.extract_tracks 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.forward_periodic_report 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.make_routing 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface.parse_input_file 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.comms_interface.prepare_periodic_report 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_interface 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.comms_links 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.navigation_system 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.sensor_interface.analyze_sensor_data 1 1 
Wed Dec 31 16:00:00 1969 



c3i_system_prototype 



c3i_system_protot>T)e 
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c3i_system.sensor_interface.prepare_sensor_track 1 1 

Wed Dec 31 16:00:00 1969 

c3i_system.sensor_interface 1 1 

Wed Dec 31 16:00:00 1969 

c3i_system.sensors 1 1 

Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.add_comms_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.add_sensor_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.filter_comms_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.filter_sensor_track 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.track_database_manager.monitor_ownship_position 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.track_database_manager 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.display_tracks 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.user_interface.emergency_status_screen 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.get_user_inputs 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.user_interface.manage_user_interface 1 1 
Wed Dec 31 16:00:00 1969 

c3i_system.user_interface.message_arrival_panel 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.message_editor 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface.status_screen 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.user_interface 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.weapons_interface 1 1 
Wed Dec 31 16:00:00 1969 
c3i_system.weapons_systems 1 1 
Wed Dec 31 16:00:00 1969 

main oloughln cll c3i_system_prototype c3i config 1 
comms_interface 1 1 
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comms_links 

navigation_system 

sensor_interface 

sensors 

track_database_manager 

user_interface 

weapons_interface 

weapons_systems 



1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 



main oloughln cdt c3i_system_prototype c3i_config_l w 
c3i_system 1 1 

main oloughln vds c3i_system_prototype c3i_system 1 1 

MonJunS 14:51:38 1992 

oloughln 

main oloughln vdd c3i_system_prototype c3i_system 1 1 
MonJunS 14:51:38 1992 

main oloughln vgl c3i_system_prototype c3i_system 1 1 
Wed Dec 31 16:00:00 1969 

main oloughln vgv c3i_system_prototype c3i_system 



main oloughln vgd c3i_system_prototype c3i_system 1 1 

main oloughln vud c3i_system_prototype c3i_system descp 1 1 
This is a test file added to the design database for example purposes. 
Any thing can be added to it, and nothing can be expected back. 

main oloughln vgp c3i_system_prototype c3i_system 1 1 

main oloughln vgg c3i_system_prototype c3i_system 1 1 

main oloughln vgi c3i_system_prototype c3i_system 1 1 



IMPLEMENTATION 

GRAPH 

VERTEX comms_links : 1200 ms 
VERTEX comms_interface 
VERTEX track_database_manager 
VERTEX user_interface 



1 1 
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VERTEX weapons_interface : 500 ms 
VERTEX weapons_systems : 500 ms 
VERTEX navigation_system : 800 ms 
VERTEX sensorjnterface 
VERTEX sensors : 800 ms 

EDGE input_link_message comms_links -> comms_interface 
EDGE tcd_network_setup user_interface -> comms_interface 
EDGE tdd_archive_setup user_interface -> comms_interface 
EDGE tcd_transmit_command user_interface -> comms_interface 
EDGE terminate_tTans user_interface -> comms_interface 
EDGE tcd_emission_control user_interface -> comms_interface 
EDGE initiate_trans user_interface -> comms_interface 
EDGE comms_add_track comms_interface -> track_daiabase_manager 
EDGE comms_email comms_interface -> user_interface 
EDGE position_data navigation_system -> track_database_manager 
EDGE sensor_add_track sensor_interface -> track_database_manager 
EDGE tdd_filter user_interface -> track_database_manager 
EDGE out_tracks track_database_manager -> user_interface 
EDGE weapons_emrep weapons_interface -> user_interface 
EDGE weapons_statrep weapons_interface -> user_interface 
EDGE weapon_status_data weapons_systems -> weapons_interface 
EDGE position_data navigation_system -> sensor_interface 
EDGE sensor_data sensors -> sensor_interface 
DATA STREAM 

initiate_trans : initiate_transmission_sequence. 
terminate_trans ; BOOLEAN, 
comms_add_track ; add_track_tuple, 
position_data : ownship_navigation_info, 
position_data : ownship_navigation_info, 
sensor_data : sensor_record, 
sensor_add_track : add_track_tuple, 
tdd_filter : set_track_filter, 
out_tracks ; track_tuple, 
weapons_statrep : weapon_status_report, 
weapons_emrep : weapon_status_report, 
weapon_status_data : weapon_status, 
comms_email : filename, 
tcd_transmit_command : transmit_command, 
tdd_archive_setup : archive_setup, 
tcd_network_setup : network_setup, 
tcd_emission_control : emissions_control_command. 
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input_link_message : filename 



CONTROL CONSTRAINTS 
OPERATOR comms_Iinks 
PERIOD 50 SEC 

OPERATOR comms_interface 

OPERATOR user_interface 

OPERATOR track_database_manager 

OPERATOR navigation_sysiem 
PERIOD 50 SEC 

OPERATOR sensor_interface 

OPERATOR sensors 
PERIOD 50 SEC 

OPERATOR weapons_interface 
TRIGGERED BY SOME 
we apo n_sta tus_d a ta 

IF weapon_status_data. status = DAM OR weapon_status_data.status 
ser\'ice_requLred OR weapon_status_data. status = out_of_ammunition 

OPERATOR weapons_systems 

PERIOD 50 SEC 

END 

main oloughln vgc c3i_system_protot\'pe c3i_system 1 1 
OPERATOR c3i_system 
SPECIFICATION 

DESCRIPTION { UNDEFINTD.TEXT } 

END 

END COMMAxND LINE TEST 
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B. EXAMPLES WITH CAPS SCREEN DUMPS. 



The testing conducted in section A was executed with a shell script. In this section a 
certain selection of design database commands will be executed to show how variation and 
versioning work. The examples are accompanied with screen dumps of CAPS graphic 
editor screens. These screens will display the changes made using the graphic editor which 
will correspond to the variations and versions stored in the database. 




Screen 1 shows a top level view of c3i_system. This view is stored in the database as 
object c3i_system variation 1, version 1. To access this object the operator name on the 
command line would be c3i_system. TTie actual name in the database is c3i_system_l, a 
concatenation of the object name and the variation number. The designers should not 
concern themselves the with the internal database name. TTie DDBMS handles the 
concatenation of the object name and variation number and also stripping off the variation 
number when the object name needs to be retrieved. 
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The command issued below retrieves from the database the object c3i_system 
variation 1, version 1, and displays all the operators and their variation and version numbers 
which are children of c3i_system. The listing, like the graphic editor view only displays the 
current level view. 

main oloughln vll c3i_system_prototype c3i_system 1 1 



comms_interface 1 1 

comms_links 1 1 

navigation_system 1 1 

sensor_interface 1 1 

sensors 1 1 

track_database_manager 1 1 

user_interface 1 1 

weapons_interface 1 1 

weapons_systems 1 1 



One name is listed for each object displayed in the graphic editor. 
c3i_system is a composite object which can be decomposed on the command line as 
well as in the graphic editor. 

Screen 2, is a graphic editor display of the decomposition of the object 
sensor_interface. The listing shows that two objects make up c3i_system.sensor_interface 
variation 1, version 1 . These two objects are both variation 1, version 1. These two displays 
demonstrate composite and atomic objects. c3i_system is a composite object composed of 
the nine objects listed above and displayed on screen 1. sensor_interface is a composite 
object composed of the two objects listed below and displayed on screen 2. 
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SCREEN 2. c3i_system.sensor_interface, Variation 1, Version 1 



The two objects displayed above make up the composite object. sensor_interface 
variation 1, version 1. The command below gives a listing of the objects names and their 
variation and version numbers. As with the view of c3i_system. the graphic display shows 
only the current level. The same is true of the object listed on the command line. The two 
objects listed from the command line are atomic objects. This is verified by executing the 
vll command on either of the two objects listed. As shown below, no output is sent to the 
screen. If no output is sent to the screen this signifies that the object is atomic and will not 
decompose. 



main oloughln vU c3i_system_prototype c3i_system.sensor_interface 1 1 
analyze_sensor_data 1 1 

prepare_sensor_track 1 1 
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main oloughln vll c3i_system_prototype 

c3i_system.sensor_interface.prepare_sensor_track 1 1 

On screen 3 the graphic editor shows that prepare_sensor_track has been modified by 
the addition loop_l. The graphic editor displays the object retrieved from the database. In 
this case it is c3i_system.sensor_interface variation 1, version 1. 
c3i_system.sensor_interface will not version, because of this modification, until it is 
reinserted into the database. After the modified object has been reinserted into the database 
the object c3i_system.sensor_interface will version and so will all its parents, until the root 
object has versioned. In this example c3i_system.sensor_interface.analyze_sensor_data, 
c3i_system.sensor_interface and c3i_system will all version. The following command from 
the command line demonstrates this versioning. 
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SCREEN 3. c3i_system.sensor_interface, Variation 1, Version 2 
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The vgv command lists all the variations and versions in the database for the 
c3i_system. As shown there are now two c3i_systems, c3i_systen variation 1 , version 1 and 
c3i_systen variation 1, version 2. 

main oloughln vgv c3i_system_prototype c3i_system 
1 1 
1 2 

The vll command now shows that sensor_interface has versioned also. So c3i_system 
variation 1, version 2 contain sensor_interface variation 1, version 2. While c3i_system 
variation 1, version 1 contains object sensor_interface variation 1, version 1. Further 
decomposition shows c3i_system.sensor_interface variation 1, version 2 is made up of 
prepare_sensor_track variation 1. version 1 and analyze_sensor_data variation 1, version 2. 
This reflects the changes made in the graphic editor. 



main oloughln vU c3i_system_prototype c3i_system 1 2 



comms_interface 1 1 

comms_links 1 1 

navigation_system 1 1 

sensors 1 1 

track_database_manager 1 1 

user_interface 1 1 

weapons_interface 1 1 

weapon s_systems 1 1 

sensor_interface 1 2 



main oloughln vU c3i_system_prototy'pe c3i_system.sensor_interface 1 2 
prepare_sensor_track 1 1 

analyze_sensor_data 1 2 

Screen 4 shows a modification to the atomic object prepare_sensor_track variation 1, 
version 1. When reinserted into the database, this object and its parents up to and including 
the root object will version. This is demonstrated with the following commands. 
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main oloughln vgv c3i_system_protot\pe c3i_system 
1 1 
1 2 
1 3 

There are now 3 version of variation 1 of object c3i_system in the database. 
c3i_system variation 1, version 3 contains the following objects. 

main oloughln vll c3i_system_prototype c3i_system 1 3 
commsjnterface 1 1 

comms_links 1 1 

navigation_system 1 1 
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sensors 

track_database_manager 
user_interface 
weapons_interface 
weapons_systems 
sensor interface 



1 1 
1 1 
1 1 
1 1 
1 1 
1 3 



The object analyze_sensor_data variation 1, version 2 was not effected by the 
versioning of prepare_sensor_track variation 1, version 1 because it is not in the direct path 
between prepare_sensor_track variation 1, version 1 and the root object. In this example 
c3i_system.sensor_interface.prepare_sensor_data, c3i_system.sensor_interface and 
c3i_system all version. 

main oloughln vll c3i_system_protot>'pe c3i_system.sensor_interface 1 3 
analyze_sensor_data 1 2 

prepare_sensor_track 1 2 

In this next example c3i_system variation 1, version 2 was retrieved from the database. 
Using the graphic editor sensor_interface was decomposed and then the 
prepare_sensor_track object was decomposed. Upon reinsertion of prepare_sensor_track a 
new object was created and prepare_sensor_track became a composite object containing 
the new objects constructed with the graphic editor. Screen 5 shows the new 
prepare_sensor_track object created. As before each parent of the new object versioned. 
Because prepare_sensor_track variation 1, version 1 was modified and 
prepare_sensor_track variation 1, version 2 already exists a new variation was created. This 
happened to each parent because a parent object with a greater version number already 
existed. The following commands show the new variations created because of the 
modification of prepare_sensor_track variation 1 , version 1 . 

main oloughln vll c3i_system_prototype c3i_system 2 1 
comms_interface 1 1 

comms_links 1 1 

navigation_system 1 1 

sensors 1 1 

track_database_manager 1 1 

user_interface 1 1 

weapons_interface 1 1 

weapons_systems 1 1 

sensor_interface 2 1 
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main oloughln vll c3i_system_prototype c3i_system.sensor_interface 2 1 
analyze_sensor_data 1 2 

prepare_sensor_track 2 1 



main oloughln vll 

c3i_system.sensor_inierface.prepare_sensor_track 2 1 



bubble. 1 1 1 

bubble_2 1 1 
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SCREEN 5. c3i_system.sensor_interface,.prepare_sensor_track 
Variation 2 , Version 1 



The object prepare_sensor_track variation 2, version 1 contains the objects bubble. 1 
and bubble.2, both of which are variation 1, version 1. In this example a new level is 
created causing the parent objects to version and create new versions, alternate paths of 
development, because versions of a higher number existed on the same variation. 
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C. TEST SHELL SCRIPT. 



#!/usr/local/bin/tcsh 

echo “START COMMAND LINT TEST “ 

echo 

echo 

echo “main oloughln pip c3i_system_protot>T3e ‘Michael D. O’Loughlin’ descp “ 
main oloughln pip c3i_system_prototype “Michael D. O’Loughlin” descp 
echo 
echo 

echo “main oloughln pin “ 
main oloughln pin 
echo 
echo 

echo “main oloughln pll “ 
main oloughln pll 
echo 
echo 

echo “main oloughln pgd c3i_system_prototype “ 
main oloughln pgd c3i_system_protot}'pe 
echo 
echo 

echo “main oloughln pud c3i_system func_description “ 
main oloughln pud c3i_system_protot>'pe func_description 
echo 
echo 

echo “main oloughln pgd c3i_system_protot>T)e “ 
main oloughln pgd c3i_system_protot>T)e 
echo 
echo 

echo “main oloughln prd c3i_system_prototype “ 
main oloughln prd c3i_system_prototype 
echo 
echo 

echo “main oloughln pgl c3i_system_prototype “ 
main oloughln pgl c3i_system_prototype 
echo 
echo 

echo “main oloughln pul c3i_system_prototype ‘Larry Williamson’ “ 
main oloughln pul c3i_system_prototype “Larry Williamson” 
echo 
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echo 

echo “main oloughln pgl c3i_system_prototype “ 
main oloughln pgl c3i_system_prototype 
echo 
echo 

echo “main oloughln pds c3i_system_prototype” 
main oloughln pds c3i_system_prototype 
echo 
echo 

#-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x- 

x-x-x-x-x- 

echo “main oloughln cic c3i_system_prototype c3i_config_l ‘Michael D. 
O’Loughlin' descp “ 

main oloughln cic c3i_system_protot\'pe c3i_config_l “Michael D. O’Loughlin” 
descp 
echo 
echo 

echo “main oloughln cln c3i_system_prototype “ 
main oloughln cln c3i_system_protot>T)e 
echo 
echo 

echo “main oloughln cda c3i_system_protot\'pe c3i_config_l “ 
main oloughln cda c3i_system_protot\'pe c3i_config_l 
echo 
echo 

echo “main oloughln cgm c3i_system_prototype c3i_config_l “ 
main oloughln cgm c3i_system_prototype c3i_config_l 
echo 
echo 

echo “main oloughln cgd c3i_system_protot>'pe c3i_config_l “ 
main oloughln cgd c3i_system_protot>T3e c3i_config_l 
echo 
echo 

echo “main oloughln cum c3i_system_protot>^e c3i_config_l ‘Marty 
Shoppenheimer’ “ 

main oloughln cum c3i_system_prototype c3i_config_l “Marty Shoppenheimer” 

echo 

echo 

echo “main oloughln cgm c3i_system_protot>T3e c3i_config_l “ 
main oloughln cgm c3i_system_prototype c3i_config_l 
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echo 

echo 

echo “main oloughln cud c3i_system_prototype c3i_config_l func_description “ 
main oloughln cud c3i_system_prototype c3i_config_l func_description 
echo 
echo 

echo “main oloughln cgd c3i_system_prototype c3i_config_l “ 
main oloughln cgd c3i_system_prototype c3i_config_l 
echo 
echo 

echo “main oloughln cpl c3i_system_prototype c3i_config_l ‘This is the first Post to 
c3i_system Log’ “ 

main oloughln cpl c3i_system_prototype c3i_config_l “This is the first Post to 
c3i_system Log” 
echo 
echo 

echo “main oloughln cgl c3i_system_prototype c3i_config_l “ 
main oloughln cgl c3i_system_prototype c3i config 1 
echo 
echo 

echo “main oloughln cpl c3i_system_prototype c3i_config_l ‘This is the second Post 
to c3i_config_l Log' “ 

main oloughln cpl c3i_system_protot}'pe c3i_config_l “This is the second Post to 
c3i_config_l Log” 
echo 
echo 

echo “main oloughln cgl c3i_system_protot>'pe c3i_config_l “ 
main oloughln cgl c3i_system_prototype c3i_config_l 
echo 
echo 

echo “main oloughln cln c3i_system_prototype” 
main oloughln cln c3i_system_prototype 
echo 
echo 

echo “main oloughln cds c3i_system_prototype c3i_config_l “ 
main oloughln cds c3i_system_prototype c3i_config_l 
echo 
echo 

#-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x- 

x-x-x-x-x- 
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echo “main oloughln vaa c3i_system_prototype c3i_system “ 
main oloughln vaa c3i_system_protot>'pe c3i_system 
echo 
echo 

echo “main oloughln pll “ 
main oloughln pll 
echo 
echo 

echo “main oloughln vlo c3i_system_protot>T)e c3i_system “ 
main oloughln vlo c3i_system_protot>T?e c3i_system 
echo 
echo 

echo “main oloughln vll c3i_system_protot>'pe c3i_system “ 
main oloughln vll c3i_system_protot>’pe c3i_system 
echo 
echo 

echo “main oloughln vlo c3i_system_protot\'pe c3i_system.comms_interface “ 
main oloughln vlo c3i_system_prototype c3i_system.comms_interface 
echo 
echo 

echo “main oloughln vll c3i_system_prototype c3i_system.comms_interface “ 
main oloughln vll c3i_system_prototype c3i_system.comms_interface 
echo 
echo 

echo “main oloughln vlo 

c3i_system.comms_interface.convert_to_text_file “ 
main oloughln vlo 

c3i_system.comms_interface.convert_to_text_file 
echo 
echo 

echo “main oloughln vll 

c3i_system.comms_interface.convert_to_text_file “ 
main oloughln vll 

c3i_system.comms_interface.convert_to_text_file 
echo 
echo 

echo “main oloughln cao c3i_system_prototype c3i_config_l c3i_system 1 1 “ 
main oloughln cao c3i_system_prototype c3i_config_l c3i_system 1 1 
echo 
echo 

echo “main oloughln do c3i_system_protot>'pe c3i_config_l “ 



c3i_system_protot)'pe 

c3i_system_protot>'pe 

c3i_system_protot>'pe 

c3i_system_prototype 
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main oloughln do c3i_system_prototype c3i_config_l 

echo 

echo 

echo “main oloughln cll c3i_system_prototype c3i_config_l “ 
main oloughln cll c3i_system_prototype c3i_config_l 
echo 
echo 

echo “main oloughln cdt c3i_system_prototype c3i_config_l w “ 
main oloughln cdt c3i_system_prototype c3i_config_l w 
echo 
echo 

#-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x- 

x-x-x-x-x- 

echo “main oloughln vds c3i_system_prototype c3i_system 1 1 “ 
main oloughln vds c3i_system_prototype c3i_system 1 1 
echo 
echo 

echo “main oloughln vdd c3i_system_protot>'pe c3i_system 1 1 “ 
main oloughln vdd c3i_system_prototype c3i_system 1 1 
echo 
echo 

echo “main oloughln vgl c3i_system_protot>T)e c3i_system 1 1 “ 
main oloughln vgl c3i_system_prototype c3i_system 1 1 
echo 
echo 

echo “main oloughln vgv c3i_system_protot\T)e c3i_system “ 
main oloughln vgv c3i_system_protot>’pe c3i_system 
echo 
echo 

echo “main oloughln vud c3i_system_prototype c3i_system descp 1 1 “ 
main oloughln vud c3i_system_prototype c3i_system descp 1 1 
echo 
echo 

echo “main oloughln vgd c3i_system_prototype c3i_system 1 1 “ 
main oloughln vgd c3i_system_prototype c3i_system 1 1 
echo 
echo 

echo “main oloughln vgp c3i_system_prototype c3i_system 1 1 “ 

#main oloughln vgp c3i_system_prototype c3i_system 1 1 
echo 
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echo 

echo “main oloughln vgg c3i_system_protot>T>e c3i_system 1 1 
#main oloughln vgg c3i_system_prototype c3i_system 1 1 
echo 
echo 

echo “main oloughln vgi c3i_system_prototype c3i_system 1 1 ' 
main oloughln vgi c3i_system_protot>T?e c3i_system 1 1 
echo 
echo 

echo “main oloughln vgc c3i_system_prototype c3i_system 1 1 
main oloughln vgc c3i_system_prototype c3i_system 1 1 
echo 
echo 

echo “main oloughln caa c3i_system_protot>T)e c3i_config_l “ 
main oloughln cdt c3i_system_protot>pe c3i_config_l 
echo 
echo 

echo “END COMMAND LINE TEST “ 
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APPENDIX D 



A. SOURCE CODE. 
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// File Header 

// 

//Filename : main.cxx 

//sees ID : 1.3 

// Release No. : 1 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

//.Modified by...: Michael D. O'Loughlin 

//.Modifications.: The modifications made to this module correspond to the 

// modicications made to as of 

// The modifications made to this module will 

// The following operations were added or modified: 

// 1 . 

// 2 . 

// 3. 

// 4. 

// The above modifications were made on 

// Compiler : Glockenspiel C++ 2.1 

// 

// End header comments - 

// sees ID follows: will compile to place date/time stamp in 
// object file 

static char main_Sccsld[] = “@(#)main.cxx 1.3M9/ 16/91”: 

// Interface Dependencies 

// 

#define DEBUG 
#include ‘‘debug. h” 

#ifndef _DDBDEFINES_H 
#include “ddbdefines.h” 

#endif 

#include “My_String.h” 

#include <ObJect.h> 

#include <Transaction.h> 

#include <Directory.h> 

#include <GlobalEntities.h> 
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#include <Daiabase.h> 
#include <Listh> 
#include <streairi.hxx> 



extern “C-’' 



#include <stdlib.h> 

#include <stddef.h> 

#include <string.h> 

#include <ct>pe.h> 

} 

#ifndef _VOBJECTFUNC_H 
#include “vobjecifunc.h" 

#endif 

#ifndef _EV ALU ATION_H 
#include “evaluation.h" 

#endif 

#ifndef _PROTFUNC^H 
#include “protfunc.h" 

#endif 

#ifndef _CONFFUNC_H 
#include “conffunc.h" 

#endif 

// End Interface Dependencies 

Type *V_OBJECT_OT\pe; 

Type *THREAD_OType; 

Type *COMPONENT_OType: 

Type *TEXT_OBJECT_OType; 

Type *PROTOTYPE_OType; 

Type *CONFIGURATION_OType; 

Type *DDB_OType; 

Directory *prototype_dir = (Directory*)0; 
Directory *ddbRootDir = (Directory* )0; 
List *myPrototypeList = (List*)0; 
char *daiabase_name = (char *)0: 
char *userPtr = (char *)0: 
char *dirNamePtr = (char *)0; 
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void iniiiali 2 e_iypes(void); 

void setUpDirectory(char char *); 

int main(int argc, char *argvQ) 



FTRACERr‘main’\‘‘DDBCAPS,log’\ 1): 
dirNamePtr = geienv(*‘PROTOTYPE”); 
userPtr= geienv("USER"); 

Boolean done=FALSE; 
int menu_option=0; 

ifstream inFile: 

char *function_tag; 

im number_arguments: 
im run = 0; 

if (argv[l]) 

{ 

database_name = new char[strlen(argv[l ])+!]; 
strcpy ( daiabase_name ,ar g v [ 1 ] ) ; 

} 



if (argv[2]) 

( 

function_iag = new char[strlen(argv[2])+l]: 
strcpy(function_iag. argv[2]); 

} 

number_arguments = argc - 3; 

// subtract the “design" “database" & “function" 

// from the argument(s) we evaluate. 

if (number_arguments < 0) 

( 

cerr « “<ERROR: Not enough arguments specified>\n\n" 
« “ Format for Usage: ^n\n" 

« “ designdb dbasename function [argument, ...]\n\n" 
// INSERT CODE TO CLOSE TRACER FILE 
SETLMODE; 

DESTROYTRACER; 

exit(l): 
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if (CXr_open(database_naine)) 



{ 

OC_iransactionStart(); 
initial ize_t>T)es(); 

setUpDirectory(argv[3], function_tag); 

} 

else 

{ 

cerr « "<ERROR: Error anempting to open database “ 
« database_nanne 

« “ — > database does not exist in registry\n\n\n": 

// INSERT CODE TO CLOSE TRACER FILE 
SETLMODE; 

DESTROYTRACER; 

exit(l); 

) 



if (strlen(function_tag)<3 II strlen(function_tag)>3) 

{ 

cerr « ‘'<ERROR: illegal function t>pe--> <“ 
« function_tag « "> >\n"; 



else 

{ 

if (function_tag[0] = T' II function_tag[0]='p') 
run = evaluate_prototype_function(upper(function_iag), 
number_arguments): 

else if (function_tag[0] == ‘C' II function_tag[0]=’c’) 
run=evaluate_configuration_function(upper(function_tag), 
number_arguments); 

else if (funcdon_tag[0] == ‘V’ II function_tag[0]=='v') 
run = evaluate_vobject_function(upper(function_tag), 
number_arguments); 

else if (function_tag[0] == ‘H' II function_lag[0]=='h') 
run = evaluate_historical_function(upper(function_tag), 
number_arguments); 

else 

{ 

cerr « “<ERROR: illegal function type--> <“; 
cerr « function_lag « >\n"; 
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} 



switch (run) 

{ 

case LIST.PROTOTYPES: 
list_prot_func(number_arguments); 
break; 

case LONG_LIST_PROTOTYPES: 
long_list_prot_func(number_argumenis); 
break; 

case GET_PROTOTYPE_LEADER: 
get_proiJeader_func(number_arguments, argv[3]); 
break: 

case DUMP_PROTOTYPE_SL^IMARY: 
dump_prot__summary_func(number_arguments, argv[3]): 
break: 

case GET_PROTOTYPE_DESCRIPTION: 
gei_prot_description_func(number_argumenls, argv[3]): 
break: 

case RETRIEVE_PROTOTYPE^DATE: 
retrieve_prot_date_func(number_argumenLs. argv[3]): 
break: 

case INSERT.PROTOTYPE: 
insert_prot_func(number_argumenls, argv[3]. 
argv[4],argv[5]): 

break: 

case UPDATE^PROTOTYTE^LEADER: 
updaie_proiJeader_func(number_arguments, 
argv[3],argv[4]); 

break: 

case UPDATE_PROTOTYPE_DESC: 
update_proi_desc_func(number_argumems, 
argv[3], argv[4]): 

break: 

case UPDATE.PROTOTYPE^NAME: 
update_prot_naine_func(number_arguments, 
argv[3],argv[4]); 

break: 

case PROTOTYPE_VARJATION_LIST: 
list_prot_variations(number_arguments): 
break: 
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case PR0T0TYPE_VERSI0N_L1ST: 
list_prot_versions(number_arguments): 
break: 

case PROTOTYPE_VAR_AND_VER_LlST: 
list_prot_var_and_ver(number_arguments); 
break; 

case DUMP_CONFIGURATION_SUMMARY: 
dump_conf_summary_func(number_arguinents, 
argv[3],argv[4]); 

break; 

case GET_LATEST_C0NFIGURAT10N: 
get_latest_conf_func(number_arguments, 
argv[3]): 

break; 

case ADD_C0NFIGURAT10N_0PERAT0RS: 
add_conf_operators_func(number_arguments. 
argv[3],argv[4]); 

break; 

case DUMP_CONFIGURATION_OPERATORS: 
dump_conf_operators_func(number_arguments. 
argv[3]argv[4].argv[5]): 

break: 

case RELEASE_CONFIGURATION_LOCK; 
reIease_conf_lock_func(number_arguments. 
argv[3].argv[4]); 

break; 

case LONG_LIST_CONnGURATION_OPERATORS : 
long_Iist_conf_operators_func(number_arguments. 
argv[3],argv[4]): 

break; 

case LIST_CONFIGURATION_OPERATORS: 
list_conf_operators_func(number_argun[ients, 
argv[3].argv[4]); 

break; 

caseLIST_CONFIGURATION_DEFAULT_OPERATOR: 

list_conf_defauIt_operator_func(number_argumems, 

argv[3],argv[4]); 

break; 

case L1ST_C0NFIGURATI0NS: 
list_conf_func(number_arguments, argv[3]); 
break; 

case UPDATE_CONFIGURATION_NAME: 
update_conf_name_func(number_arguments. 
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argv[3), argv[4], 
argv[5]); 

break; 

case GET_C0NFIGURATI0N__DESCR1PTI0N: 
get_conf_desc_func(number_arguments, 
argv[3], argv[4]); 

break; 

case INSERT.CONFIGURATION: 
insert_conf_func(nuniber_arguments. argv[3], 
argv[4], argv[5], argv[6]); 

break: 

caseUPDATE_C0NFIGURAT10N_DESCRlPTI0N: 
update_conf_desc_func(argv[3], argv[4], 
argv[5]): 

break; 

case GET_CONFIGURATION_NIANAGER: 
get_conf_manager_func(number_arguments, 
argv[3], argv[4]); 

break; 

case UPDATE_COXFIGURATION_NLANAGER: 
update_conf_majiager_func(number_argumenis. argv[3], 
argv[4].argv[5]); 

break; 

case GET_CONFIGURATION_DATE: 
get_conf_date_func(number_arguments, 
argv[3], argv[4]); 

break; 

case GET_CONFIGUR,ATION_CRANGED: 

case POST_CONFIGURATION_LOG: 
post_conf_Iog_func(argv[3]. argv[4], argv[5]); 
break; 

case GET_C0NFIGURAT10N_L0G: 
get_conf_log_func(number_arguments, 
argv[3].argv[4]): 

break; 

case ATTACH_OPERATOR; 
attach_vobject_to_conf_func(number_argumenis. 
argv[3],argv[4], 
argv [5] .argv [6] ,arg V [7 ] ); 

break; 

// X X X X 

// 

// VOBJECT CASE STATENIENTS 
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X 



X 



// 

// X X 

case L1ST_0PERAT0RS: 
list_operators_func(number_arguments.argv[3]. 
argv[4],argv[5].argv[6]); 

break; 

case GET_VOBJECT_DESCRIPTION; 
get_vobject_desc_func(number_arguments. argv[3], 
argv[4], argv[5]. argv[6]); 

break; 

case UPDATE_VOBJECT_DESCRIPTION; 
update_vobject_desc_func{number_arguments, 
argv[3],argv[4]. 
argv[5], argv[6], argv[7]); 

break; 

case GET_VOBJECT_DATE: 
get_vobject_date_func(number_arguments, argv[3], 
argv[4], argv[5], argv[6]); 

break; 

case GET_VOBJECT_ VERSIONS; 
get_vobject_versions_func(number_arguments. 
argv[3], argv[4]); 

break; 

case GET_VOBJECT_LOCK: 
get_vobject_lock_func(number_arguments, 
argv[3], argv[4], 
argv[5], argv[6]); 

break; 

case GET_VOBJECT_\^RSION; 
get_vobject_version_func(); 
break; 

case DUMP_VOBJECT_SUMMARY: 
dump_vobject_summary_func(number_arguments. argv[3]. 
argv[4], argv[5], argv[6]); 

break; 

case GET_V0BJECT_P0STSCR1PT; 
get_vobject_psfile_func(number_arguments. argv[3], 
argv[4]. argv[5]^gv[6]); 

break; 

case GET_VOBJECT_GRAPH; 
get_vobject_graphfile_func(number_arguments.argv[3]. 
argv[4], argv[5].argv[6]); 

break; 
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case GET.VOBJECTJMPLEMENTATION: 
gei_vobject_impfile_func(number_arguments, argv[3], 
argv[4], argv[5],argv[6]); 

break; 

case GET_VOBJECT_SPECEFICATION: 
get_vobject_specfile_func(number_argumenls, argv[3], 
argv[4],argv[5],argv[6]): 

break: 

case GET^VOBJECT_SOURCE: 
get_vobject_sourcefile_func(number_argumenis, 
argv[3], argv[4], 
argv[5].argv[6]); 

break; 

case DUMP_VOBJECT_FILES: 
dump_vobject_files_func(number_arguinents, 
argv[3]. argv[4], 
argv[5].argv[6], argv[7]); 

break; 

case DUMP^VOBJECT^TREE: 
dump_vobject_tree_func(number_arguments, argv[3]. 

argv[+4], argv[5], argv[6], argv[7]); 

break; 

case ADD_NEW_VARLATION: 
add_new_variation_func(number_argumenis. 
argv[3],argv[4], 
argv[5].argv[6]); 

break; 

case RELEASE_OPERATOR_LOCK: 
release_operaiorJock_func(number_arguments, 
argv[3].argv[4], 
argv[5],argv[6]); 

break; 

case RELEASE_SUBTREE_LOCK: 
release_subtreeJock_func(number_arguments, 
argv[3],argv[4], 
argv[5],argv[6]); 

break; 

case LONG_LIST_OPERATORS: 
longJist_operators_func(number_argumenis.argv[3], 
argv[4] ,arg v[5] ,arg v[6] ); 

break: 

case LONG_LIST_CHILDREN: 
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long_list_chiJdren_func(number_arguments,argv[3]. 

argv[4].argv[5]): 

break: 

case L0NG_L1ST_PARENTS: 
long_list_parenis_func(number_arguments.argv[3], 
argv[4],argv[5], argv[6]); 

break: 

case ERROR_IN_EVALUATION: 
cerr « “<ERROR: Error returned from evaluation" 
« “ function>\n”: 
break: 

case fflSTORICAL.TRAIL: 
historical_trail(number_arguments.argv[3], 
argv[4].argv[5], argv[6]): 

break: 

default: 

{ 

cerr « ■ <ERROR: Unknown error with function ' 
« “ call..switch (njn)...>Vi": 

// INSERT CODE TO CLOSE TRACER FILE 
SETLMODE: 

SETLMODE; 

DESTROYTRACER: 

exit(l): 



OC_transactionCommit(): 

OC_close(database_name): 

/* 1-27-92 cerr « ‘^n\nDesign Database 
« “v 1.1 Copyright 1991(c) WP.D.A.L.G lnc.\n\n\n": */ 
// INSERT CODE TO CLOSE TRACER FILE 
DESTROYTRACER: 
exit(O): 

1 



// 

//END OF MAIN 

// 

// 



void initialize_types(void) 

( 



79 



THREAD_OTv'pe=(Type *)OC_lookup(‘THREAD"); 
COMPONENT_OType=(Tv’pe *)OCJookup("COMPONENT"); 
V_OBJECT_OType=(Type*)OCJookup(“V_OBJECT‘); 
TEXT_OBJECT_OType=(Type*)OCJookupCTEXT_OBJECT-); 
PROTOTYPE_OT\'pe=(T>'pe *)OC_lookup("PROTOTYPE"); 
CONFIGURATION.OType = (Type *)OC_lookup(“CONFlGURATION”); 
DDB_OType = (Type *)OC_Iookup(“DDB"); 



void setUpDireciory(char *protName. char *func_tag) 

i 



ddbRootDir = (Directory *) OC_lookup(DESIGN_DAT.\BASE_DIRECTORY): 
if(ddbRootDir) 

I 

OC_se t World n g Direct oiy (dd bRoot D ir) : 

myPrototvpeList = (List *) OC_lookup(PROTOTYPE_LIST); 

} 

else 

I 

ddbRootDir = new Directory(DESIGN_DATABASE_DIRECTORY); 
ddbRootDir -> putObject(); 

OC_setWorkingDirector\'(ddbRootDir); 

myPrototvpeList = new List(OC_string,PROTOTYPE_LlST); 

myPrototvpeList -> putObject(); 

1 

char *yourDirChoice; 

if ((strcmp(func_tag. LIST_PROTOTYPE_UPC) == 0) II 
(strcmp(func_tag. LlST_PROTOTYPE_LC) == 0) II 
(strcmp(func_tag. LONG_LlST_PROTOTYPE_LC) = 0) II 
(strcmp(func_tag. LONG_LlST_PROTOTYPE_UPC) = 0) II 
(strcmp(func_iag. PROTOTYPE_LlST_VARIATION_LC) == 0) II 
(strcinp(func_tag. PR0T0TYPE_LIST_VARIAT10N_L1PC) == 0) II 
(strcmp(func_tag. PROTOTYPE_LIST_VERSION_LC) = 0) II 
(strcmp(func_tag, PROTOTYPE_LIST_VERSION_UPC) == 0) II 
(strcmp(func_tag, PROTOTYPE_LIST_ALL_LC) == 0) II 
(strcmp(func_tag. PROTOTYPE_LIST_ALL_UPC) = 0)) 



return; 

} 

else 

{ 
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yourDiiChoice = (char*)(My_String(protName) + My_StringC'_dir")); 

1 

prototype_dir = (Directory *)OC_lookup(yourDirChoice); 

if ((!(strcmp(func_tag.INSERT_PROTOTYPE_UPC))=0) && 
(!(strcmp(func_tag.INSERT_PROTOTYPE_LC))=0)&& 
(!(prototype_dir))) 

{ 

cerr « “<ERROR; Prototype " « protName 
« “ not found>V 
« “<Did you remember to run '' 

« “INSERT PROTOTYPE first?>\n“; 

OC_transactionCommit(); 

OC_close(database_name); 

// INSERT CODE TO CLOSE TRACER FILE 
exit(O); 

I 

if (!prototype_dir) 

{ 

prototype_dir = new Directory (yourDirChoice); 
prototype_dir->putObject(); 
if (!prototype_dir) 

cerr « “Did not setup database directoryXn"; 
OC_setWorkingDirectory(prototy'pe_dir); 

I 

else 

I 

OC_setWorkingDirectory(protot\pe_dir); 

I 

1 
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// File Header 

// : 

//.Filename : component.h 

//Date : 9/16/91 

// Author : Garr>' Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dw 7 er and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required 1 discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-h- 2.1 

II 

H End header comments 



#ifndef _COMPONENT_H 
#define _COMPONENT_H 

// sees ID follows: will compile to place date/time stamp in 
// object file 

static char COMPONENT_h_SccsId[] = ’*@(#)component.h 1.3X19/16/91": 

// Contents 

// 

// COMPONENT 

// 

// Description 

// 

// Defines class COMPONENT. 

// 

H End 

// Implementation Dependencies 
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#include <Type.h> 

#include <List.h> 

#include <Reference.h> 

#include “ReferenceMacros.h" 
#include <stream.hxx> 

// End Implementation Dependencies 

// Interface Dependencies — 

#ifndef _TEXT^OBJECT_H 
#include "text_object.h" 

#endif 



H End 

TypeCheckReference(TextObjDictReference, Reference, List): 
//Class// 

class COMPONENT : public Object 

( 

private : 

TextObjDictReference text_object_list: 
public: 

COMPONENTO; 

COMPONENT(APL *theAPL); 

virtual void Destroy(Boolean abort = FALSE); 

virtual Type *getDirectTypeO; 

void getComponentNamesO; 

Boolean getComponeniSource(char*); 
void addTextObJect(TEXT^OBJECT *); 

Boolean getPSfile(char*); 

Boolean getGRAPHfile(char*); 

Boolean getSPECfile(char*); 

Boolean getIMPfile(char*); 

Boolean getSOURCEfile(char*); 
char *getTEXTPtr(char*): 

-COMPONENTO ( DestroyCFALSE); }; 
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I: 

// Description 

// 

// Defines an COMPONENT class. The class COMPONENT is a derived 
// class of Object. 

II 

H Constructor 
// 

// COMPON'ENT 

// 

// Constructs an COMPONENT object 

// 

// COMPONENT -APL 

// 

// ONTOS required consffuctor 

// 

// Public Members 

// 

// Destroy 

// 

// ONTOS heap mangagement method. 

// 

// getDirectType 

// 

// Return the ONTOS Type of class COMPONENT. 

// 

// getComponentNames 

// 

// Display the file names of the file contained in the COMPONENT node 

// 

// getComponentSource 

// 

// Output the contents of an COMPONENT node to files. 

// 

// addTextObject 

// 

// Inserts a text_object into the COMPONENT node. 

// 

// getPSfile 

// 

// Output the .ps file contained in the COMPONENT node. 

// 

// getGRAPHfile 
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// 

// Output the .graph file contained in the COMPONENT node. 

// 

// getSPECfile 

// 

// Output the .spec file contained in the COMPONENT node. 

// 

// getIMPfile 

// 

// Output the .imp file contained in the COMPONENT node. 

// 

// getSOURCEfile 

// 

// Output the .a file contained in the COMPONENT node. 

// 

// -COMPONENT 

// 

// Destructor for the COMPONENT class. 

// 

//End 

#endif // _COMPONENT_H 
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// File Header 

// : 

//.Filename : component.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-h- 2.1 

// 

// End header comments 



// sees ID follows: will compile to place daie/time stamp in 
// object file 

static char COMPONENT_cx.x_SccsId[] = “@(#)component.cxx 1.3X19/16/91": 

// Contents 

// 

// COMPONENT::COMPONENT ONTOS constructor 

// COMPONENT: :CONlPONENT constructor 

// COMPON"ENT::getDirectType 

// CONfPONENT::Desiroy 

// COMPONENT: :getComponentNames 

// COMPONENT: :getComponentSource 

// COMPONENT::addTextObject 

// COMPONENT: :getPSfile 

// COMPONENT: :getGRAPHfile 

// COMPONENT::getSPECfile 

// COMPONENT: :geUMPfile 

// COMPOiNENT::getSOURCEfile 
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// 

// Description 

// 

// Implementation of class COMPONENT member functions. 

II 

//End 



// TURN DEBUG-TRACE ON OR OFF 
#defme DEBUG 
#include “debug.h” 



// Implementation Dependencies 
#ifndef _DDBDEFENES_H 
#include “ddbdefines.h" 

#endif 

#include <Object.h> 

#include <GlobalEntities.h> 

extern “C— " 

( 

#include <strings.h> 

I 



#ifndef_TRACER_H 
#include ’‘macer.h” 

#endif 

#ifndef _COMPON^NT_H 
#include "component.h” 

#endif 

//End Implementation Dependencies— 

extern Type *COMPONENT_OType; 
extern Type *TEXT_OBJECT_OType; 

// ONTOS required constructor // 
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COMPONENT; ;COMPONENT(APL *theAPL):(theAPL) 

{ 

(; 

// Constructor // 

COMPONENT; :COMPONENT() 

// Summary 

// 

// Constructs a persistent COMPONENT object. 

// 

// Parameter 

// 

// None 

// 

// Functional description 

// 

// Creates a list to hold text objects, then reset a reference 
// to point to the list. 

// 

//End 

{ 

initDirec tType( COMPONENT_OTvpe ); 

List *newTextObjList = new List(TEXT_OBJECT_OT\pe); 
newTextObjList -> putObjectf); 
text_object_list.Reset(new’TextObjList, this); 
putObjectf); 

1 : 

//End Constructor COMPONENT;;COMPONENT// 

// Member Function // 

T>"pe *COMPONENT;:getDirectT>'pe() 

// Summary 

// 

// returns the ONTOS Type for the COMTONENT class. 

// 

// Return value 

// 

// A pointer to an ONTOS T\pe. 

// 
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//End 



1 

return COMPONENT_OType; 

): 

// End Member Function COMPONENT;:getDirectType // 

// Member Function // 

void COMPONENT;: Destroy(Boolean aborted) 

1 

if(aborted) 

{ 

Object::Destroy(aborted); 

1 

1 

// End Member Function CON'IPON'ENT;: Destroy 

// Member Function // 

void COMPON"ENT;;getComponentNames{) 

// Summary 

// 

// Displays the name of each component in an COMPON'ENT object. 

// 

// Parameter 

// 

// None 

// 

// Functional description 

// 

// We get a pointer to the list and then create an iterator 
// for the list. We iterate over each text object and 
// display the contents of the name field. 

// 

// 

//End 

{ 

List *my_list = (List*)text_object_list.Binding(this); 

Listlterator my_iterator(my_list); 

TEXT_OBJECT *the_text_object; 
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while(my_ileraior.moreData()) 



the_iexi_objeci = (TEXT_OBJECT*)(Entity*)my_iteraior(); 
the_texi_objeci -> displayFileName(); 



// End Member Function COMPONENT::geiComponentNames ■ 
// Member Function // 

Boolean COMPONENT::geiComponentSource(char *fileMode) 

{ 

List *my_list = (List*)text_object_list.Binding(this): 
Listiterator myJterator(my_lisl): 

TEXT_OBJECT *ihe_text_object; 

Boolean write_failed = FALSE; 
while(my_iieralor.moreData()) 

the_text_object = (TEXT_OBJECT*)(Entit\'*)my_iteraiorO: 
if (!the_iext_object -> rebuildTextFile(fileMode)) 
write_failed = TRUE; 

} 

if (^^Tite_failed) 
return FAILED; 
else 

return SUCCESS; 



//End Member Function COMPONENT::getComponentSource 

// Member Function // 

void COMPONENT::addTextObject(TEXT_OBJECT *my_text_object) 

( 

List *my_list = (List*)texUobject_list.Binding(this); 
myjist -> Insert(my_text_object); 
myjist -> putObjectO; 
putObjectO; 

} 

//End Member Function CO\lPONENT;:addTextObject 
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// Member Function // 



Boolean COMPONENT: :getPSfile( char *fileMode) 

List *my_list = (List*)text_objeci_list.Binding(ihis); 

Listiteraior myJterator(my_list); 

while(my_iterator.moreData()) 

{ 

TEXT_OBJECT *lhe_texl_objeci = (TEXT_OBJECT*)(Entily*)my_iieralorO; 
char *the_file_name = ihe_text_objeci->getFileName(); 
the_file_name=(lhe_file_name -i- 

(strlen(ihe_texl_objeci->getFileName())-LENGTH_PS_EXT)); 

if(strcmp(lhe_file_namePS_EXT)=0) 

{ 

if (the_iext_objeci->rebuildTexlFile(fileMode)): 
return SUCCESS: 



1 



} 



//End Member Function COMPONENT: :getPS file 
// Member Function // 

Boolean COMPONENT::getSPECfile(char *fileMode) 

{ 



List *my_list = (List*)text_object_list.Binding(this); 

Listiterator my_iterator(myJist); 
while(myJterator.moreDataO) 

{ 

TEXT_OBJECT *the_text_object = (TEXT_OBJECT*)(Entity*)my_iteratorO: 
char *the_file_name = the_text_object->getFileName(); 
the_file_name=(the_file_name -i- 

(strlen(the_text_object->getFileName())-LENGTH_SPEC_EXT)); 

if(strcmp(the_file_name,SPEC_EXT)==0) 

{ 

if (lhe_text_object->rebuildTextFile(fileMode)) 
return SUCCESS: 
else 

return FAILED; 

} 

) 
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// End Member Function COMPONENT::geiSPECfile 



// Member Function // 

Boolean C0^1PONENT::getGRAPHflle(cha^ *fileMode) 

( 

List *my_list = (List*)text_object_list.Binding(this): 

Listiterator my_iterator(my_iist); 
whiJe(my_iterator.moreData()) 

{ 

TEXT_OBJECT *ihe_text_object = (TEXT_OBJECT*)(Entity*)my_iteratorO: 
char *the_fiie_name = the_text_object->getFileName(); 
lhe_file_name=(the_file_name + 

(strien(the_text_object->getFileName())-LENGTH_GRAPH_EXT)); 

if(strcmp(the_file_name,GR.APH_EXT)=0) 

{ 

if (the_text_object->rebuildTextFile(fileMode)) 
return SUCCESS: 
else 

return FLAILED; 

} 

I 

} 



// End Member Function COMPONENT: :getGRAPHfile 

// Member Function // 

Boolean COMPONENT::getIMPfile(char *fileMode) 

( 

List *my_list = (List*)text_object_list.Binding(this); 

Listiterator my_iterator(my_list): 
while(myJterator.moreDataO) 

( 

TEXT_OBJECT *the_text_object = (TEXT_OBJECT*)(Entity*)my_iteratorO: 
char *the_file_name = lhe_text_object->getFileName(); 
lhe_rile_name=(the_file_name + 

(strlen(the_text_object->getFileName())-LENGTH_LMP_EXT)): 

if(strcmp(the_file_nameJMP_EXT)=0) 

{ 

if (the_text_object->rebuildTextFile(fileMode)) 
return SUCCESS: 
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else 

return FAILED; 

} 

} 

} 



//End Member Function COMPONENT::getIMPfile 

// Member Function // 

Boolean COMPONENT::getSOURCEfile(char *fileMode) 

( 

List *my_list = (List*)text__object_list.Binding(this); 

Listiterator my_iterator(my_list); 
while(myJterator.moreDataO) 

{ 

TEXT_OBJECT *the_text_object = (TEXT_OBJECT*)(Eniity*)my_iterator(); 
char *the_file_name = the_text_object->getFileName(): 
the_file_name=(the_file_name + 

(strlen(the_text_object->getFileName())-LENGTH_SOLTlCE_EXT)): 

if(strcmp(the_file_name.SOURCE_EXT)=0) 

{ 

if (the_text_object->rebuildTextFile(fileMode)) 
return SUCCESS: 
else 

return FAILED; 



// End Member Function COMPONENT::getSOURCEfile 

char *COMPONENT::getTEXTPtr(char *TextTvpe) 

{ 



List *myjist = (List*)text_object_list.Binding(this): 

Listiterator my_iterator(my_list); 
while(myJterator.moreDataO) 

{ 

TEXT_OBJECT *lhe_text_object = (TEXT_OBJECT*)(Eniity*)my_iteratorO; 
char *the_file_name = the_text_object->getFileName(): 
char *the_file=(the_file_name + 

(slrlen(the_text_object->getFileName())- (strlen(TextType)))); 
if(strcmp(the_fileTextTvpe)=0) 

( 
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return the_lext_object->iexl(); 



return (char *)0: 



// End Member Function COMPONENT::getSPECfile 
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// File Header 

// : 

//Jilename : conffunc.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

//Compiler : Glockenspiel C-h- 2.1 

// 

// End header comments - 



#ifndef _CONFFUNC^H 
#define CONFFUNC_H 

#ifndef _CONFIGUR.ATION_H 
#include ''configuration. h" 

#endif 

// sees ID follows: will compile to place date/time stamp in 
// object file 

static char conffunc_h_SccsId[] = “@(#)conffunc.h 1.3\t9/16/9r'; 

// Contents - 

II 

// Protot>pes for functions related to manipulating 
// configurations. 

II 

//End 
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void lisl_conf_func(ini, char *); 

void dump_conf_summary_func(intxhar *xhar *); 

void gelJatest_conf_func(ini, char *); 

void attach_vobjecl_lo_conf_func(intxhar char char char char *); 

void updaie_conf_name_func(inu char*, char*, char*): 

void gei_conf_desc_func(ini, char^, char*); 

void insen_conf_func(inl, char*, char*, char*, char*); 

void update_conf_desc_func(char*, char*, char*); 

void get_conf_manager_func(int, char*, char*); 

void update_conf_manager_func(inl, char*, char*,char*); 

void gei_conf_daie_func(ini, char*, char*); 

void post_conf_log_func(char*, char*, char*); 

void gei_conf_log_func(int, char*, char*); 

//void dump_conf_operators_func(int.char *,char *); 
void dump_conf_operaiors_func(im,char *,char *,char *); 
void add_conf_operators_func(ini,char *,char *); 
void release_conf_lock_func(ini,char *,char *); 
void long_list_conf_operalors_func(int,char *,char *); 
void list_conf_operaiors_func(ini,char *,char *); 
void lisi_conf_default_operalor_func(int,char *,char *): 
CONFIGURATION* getConfiguration(char*, char*); 

// Description - - - 

// 

// Iist_conf_func 

// 

// Provides a list of configurations associated with a 
// designated protoivi^e. 

// 

// dunip_conf_summar\'_func 

// 

// Provides summarv’ information of a configuration to 
// to include: creation date, manager, version number and 
// default VOBJECT name, and a description. 

// 

// geiJatest_conf_func 

// 

// Provides the name of the most recently added configuration. 

// 

// atiach_vobject_to_conf_func 

// 

// Attaches an instance of the VOBJECT class to a configuration. 

II 

H update_conf_name_func 
II 



96 



// Changes the name of a designated configuration. 

// 

// get_conf_desc_func 

// 

// Provides a description of the designated configuration. 

// 

// insen_conf_func 

II 

H Creates a new configuration and binds it to a particular 
// prototype. 

II 

H update_conf_desc_func 

II 

H Updates the description text of a designated configuration. 

II 

H get_conf_manager_func 

II 

// Provides a configuration manager's name. 

II 

// update_conf_manager_func 

II 

// Changes a configuration manager's name. 

II 

// get_conf_date_func 

II 

// Provides the creation dale of a given configuration. 

II 

II post_con f_log_f u nc 
II 

// Adds a timestamped log entry (translated char string) 

// to a configuration. 

II 

H get_conf_log_func 
II 

H Provides the text of a configuration log. 

// 

// dump_conf_operators_func 

// 

// Write a copy of the operators in a designated configuration 
// to disk. 

II 

H add_con f_operat or s_f u n c 
// 

// Add operator from disk to a panicular configuration in the 
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// database. 

// 

// release_conf_lock_func 

// 

// Provide a method to release locked operators in a given 
// configuration. 

// 

// long_list_conf_operators_func 

II 

H List all the children’s names and version numbers of a 
// given configuration. 

// 

// list_conf_operaiors_func 

II 

// List the immediate children's name and version number of 
// a given configuration. 

II 

H Iist_conf_default_operator_func 

II 

H Provides the name and version number of the default VOBJECT 
// assigned to the configuration. 

// 

// End Description 

#endif // _CONFFUNC_H 



// File Header 

// : 

//filename : conffunc.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Ever>^ function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
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new system on the base Dwyer and Lewis had established. 



V 

// Compiler : Glockenspiel C-h- 2.1 

II 

// End header comments 



// sees ID follows: will compile to place date/time stamp in 
// object file 

static char conffunc_cxx_SccsId[] = “@(#)conffunc.cxx 1.3\t9/ 16/91 

// Contents - 

II 

H list_conf_func 
// dump_conf_summar\'_func 
// get_latest_conf_func 
// attach_vobject_to_conf_func 
// update_conf_name_func 
// get_conf_desc_func 
// insert_conf_func 
// update_conf_desc_func 
// get_con f_m an ager_f unc 
// update_conf_manager_func 
// get_conf_date_func 
// post_conf_log_func 
// get_conf_Iog_func 
// dump_conf_operators_func 
// add_conf_operators_func 
// release_conf_lock_func 
// long_list_conf_operators_func 
// list_conf_operators_func 
// list_conf_default_operator_func 
II 

II End 

// Implementation Dependencies 

// TURN ON TRACE -DEBUG 
#define DEBUG 
#include “debug.h” 
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#include <stream.hxx> 
#mclude <Direciory.h> 
#include “My_String.h" 



extern 



#include <sys/time.h> 
#include <sys/types.h> 
#include <stdlib.h> 

} 



#ifndef _DIRECTORY_H 
#include ‘"directory.h'’ 

#endif 

#ifndef_TREE_H 
#include “tree.h" 

#endif 

#ifndef _TREENODE_H 
#include "treenode.h" 

#endif 

#ifndef _PROTOTYPE_H 
#include “prototv^e.h" 

#endif 

#ifndef_THREAD_H 
#include “thread.h" 

#endif 

#ifndef _CONTIGUR.ATION_H 
#include “configuraiion.h" 

#endif 

#ifndef _CONFFUNC_H 
#include “conffunc.h" 

#endif 

#ifndef _VOBJECTFUNC_H 
#include "vobjectfunc.h" 

#endif 



#ifndef DDBDEFINES H 



#include “ddbdefines.h'’ 

#endif 

PROTOTYPE *protoPir; 

CONFIGURATION *conriguraiionP^; 
extern THREAD *threadPtn 

// End Implementation Dependencies 

ifstream inputfile; 

void list_conf_func(int number_arguments, char *argl) 

I 

TRACER(“list_conf_func"): 

char* protot>pe_name = (char*) (My_String(argl) + My_String(PROTOTYPE_EXT)): 

switch (number^arguments) 

{ 

case 1: 

protoPtr = (PROTOTYPE* )OCJookup(protot\pe_name): 
protoPtr -> listConfiguraiionsO; 
break; 
case 3: 
default: 

cerr « “<ERROR: extra arguments in list configurations>\n'‘; 

} 

} 



void dump_conf_summary_func(ini number_arguments. char *argh char *arg2) 

{ 

TRACER("dump_conf_summar\_func**): 
configurationPtr = getConfiguration(argl, arg2); 

switch(number_arguments) 

{ 

case 2: 

if (c on fig urati onPtr) 

{ 

configuradonPtr -> dumpConfigSummaryO; 

} 

break; 

default: 

cerr « “<ERROR: extra arguments in dump configuration summary>\n": 

} 
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void geiJaiesi_conf_func(int number_argumenis, char *argl) 

( 

TRACER(“get_latest_conf_func"); 

char^ proiotype_name = (char*) (My_String(argl) + My_Slring(PROTOTYPE_EXT)); 

switch (number_arguments) 

{ 

case 1: 

protoFIr = (PROTOTYPE*)OC_lookup(proiot\pe_name): 
protoPtr -> geiDefaultConfigNameO: 
break: 
case 3: 
default: 

cerr « “<ERROR: extra arguments in get default configurations>\n": 

} 



void attach_vobject_to_conf_func(int number_arguments, char *proto_name, 
char *config_name, char *operator_name, 
char *variationstr, char *versionstr) 

{ 

TRACER('‘attach_vobject_to_conf_func"); 

threadPtr = findThread(proto_name, operator_name): 
if (! threadPtr) 

{ 

return: 

) 

configurationPtr = getConfiguration(proto_name, config_name): 

if (configuratiouPtr) 
switch (number_arguments) 

{ 

case 3: 

cerr « “CAO requires 5 arguments. Default values no longer valid.Vi": 
break: 
case 5: 

V_OBJECT *variaiionPtr = threadPtr -> version(l): 

V_OBJECT *NewVariationPtr = variationPtr -> variation(atoi(variationstr)): 
threadPtr = New VariationPtr -> getThread(): 

V_OBJECT *vobjectPir, 

vobjectPtr = threadPir->version(atoi(versionsir)): 
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conriguralionPir->attachVobjecttoConfig(vobjectPtr); 

configurationPtr->puiObject(); 

break; 

default: 

cerr « "<ERROR: invalid number args for gel vobject descripiion>\n"; 

} 



void updaie_conf_name_func(ini number_argumenis, char *argl, char *arg2, char *arg3) 

{ 

TRACERC‘updale_conf_name_func"); 
configurationPtr = geiConfiguration(argl, arg2); 
switch (number_argumenls) 

1 

case 3: 

if (configuraiionPtr) 

{ 

configurationPtr -> updateConfigName(arg3): 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for update Config Name>\n": 

) 



void gel_conf_desc_func(ini number_arguments, char *argf char *arg2) 

( 

TRACERC‘get_conf_desc_func”); 
configurationPtr = geiConfiguration(argl. arg2); 

switch (number_arguments) 

{ 

case 2: 

if (configurationPtr) 

{ 

configurationPtr -> gelConfigDescription(); 

} 

break; 

default: 

cerr « “cERROR: invalid number args for get configuration descripiion>\n"; 

1 
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void insert_conf_func(int number_arguments, char *argl, char *arg2, char *arg3, char *arg4) 

{ 

TRACERC‘insert_conf_func"); 
configuralionPtr = getConfiguration(argl, arg2): 

switch (number_argumenis) 



case 2: 

if (IconfigurationPtr) 

{ 

configurationPtr = new CONFIGURATION(arg2); 
protoPtr -> addConfiguraiion(configurationPtr); 

I 

else 

{ 

cerr « “<ERROR: Configuration name “ « arg2 « “ already e?dsts!>\n’'; 
return: 

) 

break; 
case 3: 

if (IconfigurationPtr) 

{ 

configurationPtr = new CONTIGURATION(arg2, arg3): 
protoF^ -> addConfiguration(configurationPtr): 

} 

else 

{ 

cerr « “<ERROR: Configuration name “ « arg2 « " already exists!>\n": 
return; 

) 

break; 
case 4: 

if (IconfiguradonPtr) 

{ 

configurationPtr = new CONFIGURATION(arg2, arg3); 
inputfile.open(arg4, ios::in); 
if (linputfile) 

{ 

cerr « “<File with config description contents does not exist>\n" 

« “<Constructing configuration w/Name & Manager only>\n"; 



else 

{ 
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configurationPtr -> updateConfigDescription(arg4,inputfile); 

} 

proioPtr -> addConfiguration(configurationPtr); 
inputfile.closeO: 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for insert configuraiion>\n”; 

} 



void updale_conf_desc_func(char *argL char *arg2, char *arg3) 

{ 

TRACERrupdate_conf_desc_func"); 
configurationPtr = getConfiguration(argl, arg2); 
if (configurationPtr) 

i 

inputfiIe.open(arg3, ios::in); 
if (!inputfiJe) 

{ 

cerr « “<File with config description contents not found>Vi" 
« “<Aborting update configuration operation>\n"; 



else 

( 

configurationPtr -> updateConfigDescription(arg3, inputfile); 
inputfile.closeO; 

} 

) 

} 



void get_conf_manager_func(int number_arguments, char *argl. char *arg2) 

{ 

TRACER(“get_conf_manager_func"); 
configurationPtr = getConfiguration(argl. arg2); 

switch (number_arguments) 

{ 

case 2: 

if (configurationPtr) 

{ 

configurationPtr -> getConfigManager(); 
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} 

break; 

default: 

cerr « “<ERROR: invalid number args for insert configuration>\n”; 

} 



void update_conf_manager_func(int number_arguments, char *argU char *arg2. char *arg3) 

{ 

TRACERC‘update_conf_manager_func"); 
configurationPtr = getConfiguralion(argl, arg2); 

switch (number_arguments) 

{ 

case 3: 

if (configurationPtr) 

( 

configurationPtr -> updateConfigManager(arg3); 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for update Config Managei>\n”; 

1 



void get_conf_date_func(ini number_arguments, char *argU char *arg2) 

1 

TRACER(“get_conf_date_func"); 
configurationPtr = getConfiguration(argU arg2): 

switch (number_arguments) 

1 

case 2: 

if (configurationPtr) 

{ 

time_t systemtime = configurationPtr -> getConfCreationDate(): 
cout « ctime(&systemtime) « 

1 

break: 

default: 

cerr « “<ERROR: invalid number args to get configuration creation date>\n"; 
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void post_conf_log_func(char *argl, char *arg2, char *arg3) 



{ 

TRACER(“post_conf_log_func’'); 
configurationPtr = getConfiguration(arg 1 , arg2); 

if (configurationPtr) 

( 

inputfile.open(arg3, ios::in); 
if (linputflle) 

{ 

configurationPtr -> addtoConfigLog(arg3); 

1 

else 

{ 

configurationPtr -> addtoConfigLog(inputfile): 
inputfile.closeO: 

) 

1 

1 



void get_conf_log_func(int number_arguments, char *argl. char *arg2) 

( 

TRACER(“get_conf_log_func"); 
configurationPtr = getConfiguration(argl. arg2); 

switch (number_arguments) 

( 

case 2: 

if (configurationPtr) 

( 

configurationPtr -> getConfigLogO; 

) 

} 

} 



void dump_conf_operators_func(int number_arguments,char *proto_name.char *conf, 
char *writeOption) 
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( 

TRACER(“dump_conf_operators_func"); 
configurationPtr = getConfiguration(proto_name, conf): 

switch (number_arguments) 

{ 

case 3: 

if (configuratioRPtr) 

{ 

V_OBJECT *vobjectPtr = configurationPtr->getDefaultVobject(): 
if (vobjectPtr) 

1 

cout « vobjeciPtr->getNodeName() 

« “ " « vobjectPtr->getVersionNuinber() 

« vobjectPir->getVariatioriNumber() «“\n\n"; 

Boolean file_operation_successful = FALSE; 
file_operation_successful = 

vobjectPir -> checkoutCOMPONENTNode(wriieOption): //(file_wTite_option): 
if (file_operation_successful) 
vobjectPir -> dumpSubiree(wriieOption); 
else 

cerr « ‘*<Error checking out “ « vobjectPtr ->getNodeName() 

« " Aboning dump_vobject_iree_func>\n": 



else 

cerr « “<Eiror: No Vobject is attached to dump configuration>\n’‘; 

} 

break: 

default: 

cerr « “<ERROR: invalid number args for dump configuration operators>\n‘': 

} 

} 



void add_conf_operators_func(int number_argumentsxhar *proto_name, char *conO 

{ 

TRACERradd_conf_operators_func"); 
configurationPtr = getConfiguraiion(proto_name, conO: 

switch (number^argumenis) 

( 

case 2: 

if (configurationPtr) 

{ 

V_OBJECT *vobjectPtr = configurationPir->getDefaultVobjeci(); 
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if (vobjectPtr) 



{ 

DIRECTORY *capsdirectory; 
capsdireciory = new DIRECTORY(); 

char *operator_name = new char [siTlen(vobjectPtr->geiName())+l]; 
strcpy(operator_name,vobjectPtr->getNameO); 
operalor_name[strlen(operator_name) - 2] = 
capsdirectory->read_directory(operator_nanie); 
capsdirectory->ufxlatetimestampO; 

TREENODE_linkedlist operatorList = capsdireciory ->gelOperatorList(); 
TREENODE *rootnode = capsdirectory->find_treenode(operator_name); 
TREENODE *tree_root = new TREENODE(rootnode,NULL); 

TREE *workingtree = new TREE(tree_rooi, operator_name); 
workdngtree->build_tree(tree_root,operatorList); 

// cerr « “CHECKIN-> “ « operator_name « “Nn": 

V_OBJECT *new_parent = (V_OBJECT *)0: 
new_parent= vobjectPlr->getParent(): 

V_OBJECT *new_root = tree_root->checkin_node(new_parent); 
if (!new_root) 

( 

cerr « “<Error: Could not establish new_root in" 

« “add_conf_operators_func. Aborting.>'^"; 
break: 

) 

new_root->setNodeName(tree_root->getname()): 

tree_root->checkin_subtree(new_root); 

) 

else 

cerr « "<Error: No Vobjecl is attached to this configuration>\n"; 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for list configuration operators>\n"; 

} 

} 



void release_conf_lock_func(int number_arguments, char *proto_name, 
char *conO 

{ 

TRACER(“release_conf_lock_func"): 
configurationPtr = getConfiguration(proto_name, conO; 

switch (number_arguments) 

{ 
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case 2: 

if (configuraiionPtr) 

i 

V_OBJECT *vobjectPtr = configuraiionPtr->getDefaultVobject(); 
if (vobjectPtr) 

1 

if (vobjectPtr->releaseLockO) 

( 

vobjectPtr->puiObjectO; 
vobjectPtr -> releaseLockSubtreeQ; 



else 

cerr « “<Error: No Vobject is attached to this configuration>V’; 

1 

break: 

default: 

cerr « “<ERROR: invalid number arcs for Release configuration lock>\n": 

} 



void long_list_conf_operators_func(int number_arguments, char *proto_name, 
char *conO 

( 

TRACERrdong_list_conf_operators_func"): 
configurationPtr = getConfiguration(proto_name, conO: 

switch (number_arguments) 

( 

case 2: 

if (configurationPtr) 

V_OBJECT *vobjectPtr = configurationPtr->getDefaultVobject(): 
if (vobjectPtr) 

i 

vobjectPtr -> longIistOperatorNames(); 

1 

else 

cerr « “<Error: No Vobject is attached to this configuration>\n": 



break; 

default: 

cerr « "<ERROR: invalid number args for list configuration operators>\n"; 
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1 



void list_conf_operators_func(int number_arguments, char *proto_name, 
char *conO 

{ 

TRACER(“list_conf_operators_func”); 
configurationPtr = getConfiguration(proto_najne, conO; 

switch (number_arguments) 

{ 

case 2: 

if (configurationPtr) 

{ 

V_OBJECT *vobjectPtr = configurationPtr->getDefaultVobject(); 
if (vobjectPtr) 

{ 

vobjectPtr -> listOperatorNames(); 

} 

else 

cerr « “<Error: No Vobject is attached to this configuration>\n": 



break: 

default: 

cerr « “<ERROR: invalid number args for list configuration operators>Vi"; 

) 



void list_conf_default_operator_func(int number_arguments, char *proto_name, 
char *conO 

{ 

TRACER(“list_conf_default_operator_func"); 
configurationPtr = getConfiguration(proto_name, conO: 

switch (number_arguments) 

{ 

case 2: 

if (configurationPtr) 

{ 

V_OBJECT *vobjectPtr = configurationPtr->getDefaultVobject(); 
if (vobjectPtr) 

{ 

char *name=vobjectPir->getName(); 
name [strlen(name) - 2] = 
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cout « name; 
im i=0; 

yy* *********** 

// Added following for statement for spacing... 

jj *********** 

for (i=0;i<(PRINT.VERSION.LCK:ATION - 
strlen(vobjectPtr->getNameO));i-H-) 
cout « “ 

cout « vobjectPtr->getVariationNumber(); 
cout « 

cout « vobjectPtr->getVersionNumberO « 

} 

else 

cerr « “<Error: No Vobject is attached to this configuration>Vi"; 



break; 

default; 

cerr « “<ERROR: invalid number args for list “ 
« “configuration default operator>\n"; 

I 

} 



CONFIGURATION *getConfiguration(char *proto_name, char *config_name) 

I 

CONFIGURATION *configurationPtr = (CONTIGLTIATION *)0; 
char* prototype_name = 

(char*) (My_String(proto_name) + My_String(PROTOTYPE_EXT)): 
protoPtr = (PROTOTYPE*)OCJookup(prototype_name); 

if (protoPtr) 

I 

configurationPlr = (CONFIGURATION*)OC_lookup(config_name); 
if( ! configurationPtr) 

{ 

cerr « “<This Configuration name does noC 
« “ exist for this prototype .>\n"; 



else 



cerr « “<ERROR: Invalid Prototype name.>\n”; 

} 

return configuratioriPtr; 
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// File Header 

// : 

//filename : configuration.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

I I Compiler : Glockenspiel C++ 2.1 

// 

// End header comments 



#ifndef _CONFIGURATIOxNLH 
#define _C0NF1GLTIAT10N^H 

// sees ID follows: will compile to place date/time stamp in object file 

static char configuration_h_SccsId[] = “@(#)configuration.h 1.3\t9/16/9r’; 

// Contents 

II 

H CONFIGURATION 

II 

// Description 

II 

H Defines class CONFIGLTLATION 

// 

//End 

// Implementation Dependencies 



114 



#include <Objeci.h> 
#include <Reference.h> 
#include <Dictionary.h> 
#include <sireani.hxx> 



extern 



#include <sys/liine.h> 

#include <sys/iypes.h> 

) 

#include “ReferenceMacros.h" 

//End Implementation Dependencies 

// Interface Dependencies 

#ifndef _TEXT_OBJECT_H 
#include "text_object.h" 

#endif 

#ifndef _VERS10NED.0BJECT_H 
#include "versioned_object.h" 

#endif 

//End Interface Dependencies 

TypeCheckReference(V_ObjectReference, Reference, V_OBJECT); 
TypeCheckReference(LogReference, Reference, TEXT^OBJECT): 
TypeCheckReference(Desc2Reference, Reference. TEXT_OBJECT): 

#define DEFAULT.MANAGER ““ 

// Class // 

class CONFIGURATION : public Object 

{ 

private: 

char config_status; 
char *config_manager; 
time_t ConfCreationDate; 
int config_num_vobjects; 

LogReference config_log_entry; 

Desc2Reference config_description: 
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V_ObjectReference theVersioned_Object; 
public: 

CONHGURATIONfAPL *); 

C0NFIGURAT10N(char *name, char *manager=DEFAULT.MANAGER); 

virtual void Destroy(Boolean aborted=FALSE); 

vinual Type *getDirectTypeO; 

void getConfigNameO; 

char *name(); 

void getConfigStatusQ; 

void getConfigNlanagerO: 

void getConfigLx)g(); 

void geiConfigDescriptionO; 

void dumpConfigSummaryO; 

void listConfigOperatorsO: 

void updateConfigManager(char *new_config_manager): 
void updaieConfigNanie(char *new_config_nanie); 
void updateConfigStatus(char new_config_status); 
void addtoConfigLog(char *new_log_entry): 
void addtoConfigLog(ifstream&): 
void updateConfigDescription(char *, ifstream& ): 

V_OBJECT *COM^IGURAT10N::updateVobjecLAttachment(); 
void attachVobjecttoConfig(V_OBJECT*): 
time_t setConfCreationDateO: 
time_t getConfCreationDateO; 

V_OBJECT *getDefauliVobjectO‘. 

-CONFIGURATIONO ( Destroy(FALSE); } 

}: 



// Description 

II 

H Defines a CONFIGURATION class. 

II 

H Constructor 

// 

// configuration -APL 

II 

H ONTOS required constructor 

II 

// configuration 

II 

H constructs a configuration object with the given name. 
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// and manager. 

// 

// Public Members 

// 

// destroy 

// 

// Used to cleanup memory during deletion and transaction aborts. 

// 

// getDirectType 

// 

// Returns the ONTOS type for this class. 

// 

// getConfigName; 

// 

// Sends the configuration name to standard out. 

// 

// name 

II 

H Returns a pointer to the configuration name. 

// 

// getConfigStatus 

II 

H Sends the configuration status to standard out. 

II 

H getConfigManager 
// 

// Sends the manager's name for this particular configuration. 

// 

// getConfigLog 

II 

H Sends the configuration log to standard out. 

// 

// getConfigDescription 

II 

H Sends the configuration description to standard output. 

// 

// dumpConfigSummary 

II 

H Provides name, version number of root vobject , date and 
// description of configuration. 

II 

H listConfigOperators 
II 

II list the name of component operators in a configuration. 
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// 

// 

// 

// 



updateConfigManager 



Changes the manager's name for this configuration. 



// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 



updateConfigName 



Changes the configuration name. 



updateConfigS tatus 



Changes the configuration status field. 



addtoConfigLog 



A log to maintain a historc' of the configuration. 



updateConf igDescription 



Replaces the existing description if one exist or adds a new description. 



attach VobjecttoConfig 



Adds a versioned object to configuration. 



setConfCreationDate 



Time stamp this object with the current system time. 



getConfCreationDate 



Displays the time an instance of this class was created. 



getDefaultVobject 



Returns a pointer to the attach vobject. 



-configuration 



A destructor for the configuration class. 



End 



#endif // _C0NF1GURAT10N_H 
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// File Header 

// : 

//.Filename : configuration.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

//Modifications : Extensive modifications have been conducted on almost all of the 
/♦ original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*1 

I I Compiler : Glockenspiel C-h- 2.1 

II 

II End header comments 



// sees ID follows: will compile to place date/time stamp in 
// object file 

static char configuration_cxx_SccsId[] = "@(#)configuration.cxx 1.3\t9/ 16/91"; 

H Contents 

II 

H CONFIGURATION: :CONFIGURATION ONTOS constructor 

// CONFIGURATION: :CONFIGURATION new instance 

// CONFIGURATION::Deslroy 

// CONFIGURATION::getDirectType 

// CONFIGURATION::getConfigName 

// CONFIGURATION:: name 

// CONFIGURATION::geiConfigStatus 

// CONFIGURATION: :geiConfigManager 

// CONFIGURATION: :geiConfigLog 

// CONFIGURATION : : geiConfigDescripdon 

// CONFIGURATION::dumpConfigSummary 

// CONFIGURATION::lisiConfigOperators 
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// CONFIGURATION: lupdateConfigManager 
// CONFIGURATION::updateConfigNanie 
// CONFIGURATION::updateConfigStatus 
// CONFIGURATION: raddtoConfiguralioriLog -* string 
// CONFIGURATION::addtoConfigiiraiionLog - file 
// CONFIGURATION::updaieConfigDescription 
// CONFIGURATION: :attachVobjecttoConfig 
// CONFIGURATION : : setConfCreationDate 
// CONRGURATION::getConfCreationDate 
// CONFIGURATION:;getDefaultVobject 
// CONnGURATION::^ONnGURATION 
II 

I I Description 
// 

// Implementation of class CONFIGURATION member functions. 

// 

//End 

// Implementation Dependencies 

// TURN ON DEBUG-TRACE 
#define DEBUG 
#include “debug. h” 



#include <GlobalEntities.h> 
#include <Directory.h> 
#include <stream.hxx> 



extern “C-" 



#include <string.h> 

} 

// End Implementation Dependencies 

// Interface Dependencies 

#ifndef _CONFIGURATION_H 
#include “configuration.h” 

#endif 

#ifndef _DDBDEFINES^H 
#include “ddbdefines.h'' 
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#endif 



//End Interface Dependencies 

extern Type *V_OBJECT_OType; 
extern Type *CONFIGURATION_OType; 

// ONTOS required constructor // 

CONnCURATION::CONHGURATION(APL *theAPL) : (theAPL) 

{ 

}; 



// New Instance Constructors // 

CONFIGURATION::CONFIGURATION(char *name, 
char *manager):(name) 



// Summary — - 

II 

H Constructs a f>ersistent CONFIGURATION object. This object 
// contains management (header information) about a CONFIGURATION 
// and a select group of modules in the configuration. 

// 

// Parameter 

II 

H name 

II 

H A pointer to a character string. 

II 

H manager 

// 

// A pointer to a character string. 

// 

//Functional Description 

// 

// Copies the manager’s name into private data member. Initializes 
// the description and log entry to null and creates a dictionary to 
// hold the configuration modules. 

II 

//End 



( 

initDirectType(CONFIGURATION_OType); 
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config_manager = new char[strlen(manager)-i-l]; 
strcpy(config_manager, manager): 
config_siaius = ‘A'; 
config_num_vobjects = 0; 

ConfCreauonDate = setConfCreationDateQ; 
config_description.iniiToNull(); 
config_log_entry.initToNull(); 
theVersioned_Object.initToNull(); 

putObjectO; 



} 

// End Constructor for CONHGURATION::CONHGURATION 
// Member Functions // 

void CONFIGURAT10N::Destroy(Boolean aboned) 

1 

delete config_managen 
if (aboned) 

{ 

Object: : Destroy (aboned) : 



T\pe ^CONFIGURATION::getDirectTvpe() 

{ 

return CONFIGURATION_OTvpe: 



void CONFIGURAT10N::geiConfigName() 

( 

Directory ^directory: 
char *name: 

if(!this) 

cerr « “<ERROR: cannot get the name of a null CONFIGURATION>\n" 
return: 

} 

name = Name(): 

OC_getNameComponents(name, &directory, (Siname): 
cout « name « "Nn": 

( 
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char *CONFIGURAT10N::name() 



1 

Directory *directory; 
char *name; 

name = Name(); 

OC_getNameComponents(name, &directory, &name); 
return name: 

} 



void CONFlGURAT10N::getConfigSlatus() 

( 

if(!this) 

{ 

cerr « "<ERROR: cannot get the Status of a null Configuraiion>\n 
return; 

} 

cout « config_status « “Nn”; 

1 



void CONFlGURATION::getConfigManager() 

{ 

if(!this) 

I 

cerr « “<ERROR: cannot get the Manager of a null Configuration>\n" 
re mm; 

} 

cout « config_manager « “\n”; 

1 



void CONFIGURAT10N:;getConfigLog() 



{ 

if(!this) 

I 

cerr « “<ERROR: cannot dump the Log of a null Configuration>\n'"; 
return; 

) 

if (!config_log_entry) 

I 

cerr « “<Cannot display an empty log>\n”: 
re mm; 

1 
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else 



{ 

TEXT_OBJECT* mvTexlObjeci = (TEXT_OBJECT*)config_log_entr>.Binding(this); 
myTextObject -> lexi(cout); 



void CONFIGURATION::getConfigDescription() 

{ 

if(!lhis) 

{ 

cerr « “<ERROR: cannot get the description of a null Configuration>\n"; 
return; 

) 

if (!config_description) 

( 

cerr « “<This configuration does not contain a description>\n'’: 
return: 

1 

else 

{ 

TEXT_OBJECT* myTextObject = (TEXT_OBJECT*)config_description.Binding(this): 
myTextObject -> text(cout); 



void CONFIG URATION::dumpConfigSummar\'() 

{ 

TRACER(“CONFIGURATION::dumpConfigSummar\'"); 
int i=0: 

cout « ctime(&ConfCreationDate); 
cout « “ 

getConfigManagerO; 
if (! the V ersioned_Objec t) 

{ 

cout « “ 

for (i=0;i<PRINT_VERSION_LOCATION -strlen(“VOBJECT Name: NONE ASSIGNED “);i-Hh) 
cout « ‘ 
cout « “ 
cout « “ W’; 

} 

else 

{ 
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V_OBJECT *vobjeclPtr = (V_OBJECT*) theVersioned_Object.Binding(this); 
char *name = vobjectPtr ->getNameO; 
name[strlen(name)-2] = ‘\0’; 
cout « name; 

for (i=0;i < PRINT_VERSION_LOCAnON - strlen(vobjectPtr->getNameO) - 
strlen(‘*V OBJECT Name: “) ; i++) cout « ‘ 
cout « “ 

cout « vobjectPtr -> getVariationNumber() « “ 
cout « “ 

cout « vobjectPtr -> getVersionNumber() « “\n"; 

} 

getConfigDescriptionO; 

} 



void CONFIGURATION::listConfigOperators() 

( 

if( ! the V ers ioned_Objec t) 

1 

cerr « “This configuration does not contain a v_object”; 

} 

else 

{ 

V_OBJECT *the vobjectPtr = 

(V_OBJECT*) theVersioned_Object.Binding(this); 
theVObjectPtr -> getVObjName(); 
theVObjectPtr -> listOperatorNamesO; 

} 



void CONFIGURATION;;updateConfigManager(char *new_config_manager) 

{ 

if(!this) 

{ 

cerr « “<ERROR: cannot change the manager of a null CONFlGURATION>'\n 
return; 

) 

if(config_manager) 

{ 

strcpy(config_manager, 

) 

config_manager = new char[strlen(new_config_manager)+l]; 
strcpy(config_manager, new_config_manager); 
putObjectO: 

1 
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void CONFIG URATION::updateConfigName(char *new_config_name) 

( 

if(!this) 

( 

cerr « “<ERROR: cannot change the name of a NULL C0NFIGURAT10N>Vi" 
return; 

1 



Name(new config name): 

} 



void CONFIGURATION: :updateConfigStatus(char new_config_status) 

i 

if(!this) 

( 

cerr « “<ERROR: cannot change the status of a null CONFlGURATION>^n"; 
return; 

} 

config_status = new_config_status; 

} 



void CONFlGLTlAnON::addtoConfigLog(char *new_log_entr\) 

( 

if(!config_log_entry) 

( 

TEXT.OBJFCT *textObjectPtr = new TEXT_OBJECT(); 
textObjectPu -> append(new_log_entry); 
config_log_entry.Reset(textObjectPtr, this): 

} 

else 

i 

TEXT_OBJECT *textObjectPtr = 

(TEXT_OBJECT*) config_log_entry.Binding(this); 
textObjectPtr -> append(new_log_entry); 

} 

putObjectO; 

} 



void CONFIGURATION;:addtoConfigLog(ifstream& input_file_stream) 

{ 
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if(!config_log_entry) 



{ 

TEXT_OBJECT *textObjectPtr = new TEXT_OBJECT(); 
textObjectPtr -> append(input_file_streani): 
config_log_entry.Reset(textObjectPtr, this); 

} 

else 

{ 

TEXT_OBJECT *textObjectPtr = 

(TEXT_OBJECT*) config_log_entry.Binding(this); 
textObjectPtr -> append(input_file_stream); 

I 

putObject(): 

) 



void CONFIGURATION:;updateConrigDescription(char *fileName. ifstream& input_file_stream) 

( 

if(!config_description) 

{ 

TEXT_OBJECT *textObJectPtr = new TEXT_OBJECT(); 
textObjectPtr -> append(fileName. input_file_stream): 
config_description.Reset(textObjectPtr. this); 

1 

else 

{ 

TEXT_OBJECT ‘textObjectPtr = 

(TEXT_OBJECT‘) config_description.Binding(this); 
textObjectPtr -> resetTheText(); 
textObjectPtr -> append(fileNanie, input_file_stream); 

) 

putObjectO; 

I 



V_OB JECT ‘CONFIGURATION : : update V object A ttac hment() 

( 

if (Ithis) 

( 

cerr « “<ERROR; cannot set the v_object of a null configurationXn”; 
return NULL; 

1 

V_OBJECT ‘vobjectPtr = getDefaultVobjectO; 
if (vobjectPtr) 
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{ 

THREAD *threadPtr = (THREAD *)OC_lookup(vobjectPtr->getName()); 
if (threadPtr) 

{ 

vobjectPtr = threadPtr->current(); 

theVersioned_Object.Reset(vobjectPtr.this); 

putObjectO; 



return vobjectPtr; 

I 

void CONFlGURATION:;attachVobjecttoConfig(V_OBJECT *theV_Object) 

{ 

if (!this) 

{ 

cerr « “<ERROR: cannot set the v_obJect of a null configurationVt"; 
return; 

1 

if(!theV_ObJect) 

{ 

cerr « “<ERROR: cannot give to a configuration a null v_object>\n"; 

I 

theVersioned_Object.initToNull(); 
iheVersioned_Object.Reset(theV_Object, this); 

I 



//Member Function // 

time_t CONFIGUR.\TION::setConfCreationDate() 

I 

time_t mytloc=0; 

time_t theTime; 

return theTime = time(mytloc); 

I 



//End 



// Member Function // 

time_t CONFIGURATION;;getConfCrearionDate() 

{ 

return ConfCreationDate; 



128 



// Member Function // 



V_OBJECT * CONFIGURATION;:getDefaultVobject() 

( 

return (V_OBJECT *)(Entity *)theVersioned_Object.Binding(this); 

I 

//End 

// end functions 
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// File Header 

// : 

//.Filename : ddbdefmes.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. OXoughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C++ 2.1 

II 

H End header comments 



#ifndef _DDBDEFINES_H 
#define _DDBDEFLNES_H 

// sees ID follows: will compile to place date/lime stamp in object file 

static char ddbdefines_h_SccsId[] = “@(#)ddbdefines.h 1.3W16/9r': 

// Contents 

// 

// Number Defines for Evaluations functions 

// 

// Description 

// 

// These #defines are all designed just to pass information back and forth 
// between the main program and the modules which evaluate the command line 
// for what function to run. There are basically three types of function 
// arguments CONFIGURATION arguments - beginning with a ‘C\ PROTOTYPE 
// arguments -- beginning with a *P\ and VOBJECT functions -- beginning 
// with a ‘V\ All arguments are exactly 3 characters in length and must 
// conform to one of the valid arguments in the designed interface. All 
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// other arguments will be invalid and return <lnvalid Function> to the 
//Standard I/O. 

// 

// 

//End 

//Interface Dependencies 

// 

//NONE 

// 

// End Interface Dependencies 

struct DDBControlData 



char *prototype_name; 
char *v_object_name; 
int variation; 
int version; 

I: 

#define PRINT_CONFIG_LOCATION 20 
#define PRINT. VERS lON.LOCATION 50 
#define MAX.LINE.LENGTH 1024 
#define COMMAND.TABLE.SIZE 50 
#define SUCCESS TRUE 
#define FAILED FALSE 

#define LIST.PROTOTYPES I 
#define LONG.LIST.PROTOTYPES 81230 
#define GET.PROTOTYPE.LEADER 2 
#define GET.PROTOTYPE.DESCRIPTION 3 
#define RETRIEVE.PROTOTYPE.DATE 5 
#define INSERT.PROTOTYPE 6 
#define UPDATE.PROTOTYPE.LEADER 7 
#define UPDATE.PROTOTYPE.DESC 8 
#define UPDATE.PROTOTYPE.NAME 9 
#define GET.LATEST.CONHGURATION 10 
#define PROTOTYPE.VARIATION.LIST II 
#define PROTOTYPE. VAR. AND. VER.LIST 12 
#define PROTOTYPE. VERSION.LIST 13 
tdefine DUMP.PROTOTYPE.SUMMARY 987 

#define LIST.CONFIGURATIONS 21 

#define DUMP.CONFIGURATION.OPERATORS 91372 
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#define ADD_C0NF1GURAT10N_0PERAT0RS 91378 

#define L0NG_LIST_C0NFIGURAT10N_0PERAT0RS 92351 

#define L1ST_C0NFIGURATI0N_DEFAULT_0PERAT0R 6189 

#define LlST_C0NnGURAT10N_0PERAT0RS 91375 

#define UPDATE_CONFIGURATION_NAME 22 

#defme GET_CONnGURATION_DESCRIPTION 23 

#defme INSERT_CONFIGURATION 24 

#define UPDATE.CONFIGURATION.DESCRIPTION 25 

#define GET.CONHGURATION.MANAGER 26 

#define UPDATE_CONFIGURATION_MANAGER 27 

#define GET.CONHGURATION.DATE 28 

#define GET_CONFlGURATION_CHANGED 29 

#define P0ST_C0NFIGURAT10N_L0G 30 

#defme GET_CONFIGURATION_LOG 31 

#define ATTACH_OPERATOR 32 

#define DUMP_C0NFIGURAT10N_SUMMARY 33 

#defme RELEASE_CONFlGURATION_LOCK 8124 

#define LIST_OPERATORS 41 
#defineGET_V0BJECT_DESCRIPT10N 42 
#define GET_VOBJECT_DATE 43 
#define GET_VOBJECT_VERSIONS 44 
#define GET_VOBJECT_LOCK 45 
#define GET_VOBJECT_VERSION 46 
#define DUMP_VOBJECT_SUMMARY 47 
#define GET_VOBJECT_POSTSCRIPT 48 
#define GET_VOBJECT_GRAPH 49 
#define GET_V0BJECT_IMPLEMENTAT10N 50 
#define GET_VOBJECT_SPECIFICATION 51 
#define GET_VOBJECT_SOURCE 52 
#define UPDATE. VOBJECT.DESCRIPTION 53 
#define ADD.NEW.VARIATION 57 
#define ADD.VOBJECT.AND.SUBTREE 58 
#define DUMP.VOBJECT.FILES 59 
#define DUMP.VOBJECT.TREE 60 
#define LONG.LIST.CHILDREN 61 
#define LONG.LIST.PARENTS 62 
#define LONG.LIST.OPERATORS 32981 
#define RELEASE.SUBTREE.LOCK 8281 
#define RELEASE.OPERATOR.LOCK 8992 

#define HISTORICAL.TRAIL 80 
#define ERROR.IN.EVALUATION 9999 
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#define LENGTH_PS_EXT 3 
#defme LENGTH_GRAPH_EXT 6 
#define LENGTH_IMP_EXT 9 
#define LENGTH_SPEC_EXT 10 
#define LENGTH_SOURCE_EXT 2 

#define PS_EXT ‘*.ps” 

#define GRAPH_EXT “.graph” 
#define 1MP_EXT “.imp.psdl” 
#define SPEC_EXT “.spec.psdl” 
#define SOURCE_EXT “.a” 



#define DESIGN_D.\TAB.\SE_DIRECTORY “^DesignDatabase” 
#define PR0T0TYPE_L1ST “PrototypeList” 

#define LONG_LIST_PROTOTYPE_UPC “PLL” 

#defme LONG_LIST_PROTOTYPE_LC “pU” 

#define LIST_PROTOTYPE_UPC “PLN" 

#define LIST_PROTOTYPE_LC “pin” 

#define INSERT_PROTOTYPE_UPC “PIP” 

#define INSERT_PROTOTYPE_LC “pip" 

#define PROTOTYPE_LlST_VARIATION_UPC “PLV” 

#define PROTOTYPE_LIST_VARIATION_LC “plv" 

#define PROTOTYPE_LIST_VERSION_UPC "PVV” 

#define PROTOTYPE_LlST_VERSION_LC “pvv” 

#define PROTOTYPE_LIST_ALL_UPC “PVA” 

#define PROTOTYPE_LlST_ALL_LC “pva” 

#define PROTOTYPE.EXT “.prj" 

#endif // _DDBDEFINES_H 



// File Header 

// ; 

//filename : directory.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
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some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-h- 2.1 

II 

H End header comments - 



#ifndef _DrRECTORY^H 
#define _DIRECTORY^H 

// sees ID follows: will compile to place date/time stamp in 
//object file 

static char director>^_h_SccsId[] = ‘*@(#)directory.h 1.3\t9/16/9r’; 
// Contents 

II 

// DIRECTORY HEADER 

II 

H Description 

II 

H Defines class DIRECTORY. 

// 

//End 

// Interface Dependencies 

#ifndef _TREENODE^H 
#include “treenode.h" 

#endif 

// End Interface Dependencies 

class DIRECTORY 

{ 

private: 

TREENODE_linkedlist operator_nodes: 
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public: 

DIRECTOR Y() ( }; 

void read_directory(char *root_oper); 

void updatetimestampO; 

TREENODE *find_treenode(char *); 
TREENODE_Unkedlist getOperatorList(); 
1 : 



// Description 

II 

// Defines class DIRECTORY. Class DIRECTORY is a non- 
// persistent class. 

II 

H Constructor 

II 

// DIRECTORY 

II 

// Public Members 

II 

H read_directory 

II 

// Read a list of file from a directorv’ defined by the environment 

// variable PROTOTYPE, creates a corresponding list of operator nodes. 

II 

// updatetimestamp 

II 

H Updates the nodes time to reflect the time of the file 
// most recently updated. 

// 

// find_treenode 

// 

// Find a given node in the list of operator nodes. 

// 

// getOperatorList 

// 

// Returns the operator node list. 

// 

// End Description 

#endif // header file 
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// File Header 

// : 

//.Filename : directory.cxx 

//.sees ID : 1.3 

//J^eleaseNo....: 1 



//.Date : 9/16/91 

//.Author : Garry Lewis 

// : Drew Dwyer 

//.Modified by...: Michael D. O'Loughlin 

//.Modifications.: The modifications made to this module correspond to the 

// modicications made to as of 

// The modifications made to this module will 

// The following operations were added or modified: 

// 1 . 

// 2 . 

// 3. 

// 4. 

// The above modifications were made on 



//.Compiler : Glockenspiel C++ 2.1 

// : 

// End header comments 

// sees ID follow s: w'ill compile to place date/time stamp in 
// object file 

static char directory _cxx_SccsId[] = “@(#)directory.cxx 1.3\t9/16/9r'; 

// Contents 

// 

// DIRECTORY : :read_directory 
// DIRECTORY ::updatetimestamp 
// DIRECTORY: :find_treenode 
// DIRECTORY::getOperatorList 
// 

// Description 

// 

// IMPLEMENTS class DIRECTORY CONSTRUCTORS. 

II 

H End 

// Interface Dependencies 

// TURN ON DEBUG.TRACE 
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#define DEBUG 
#include “debug.h” 
#include “My_String.h” 
#include <stream.hxx> 



extern “C--” 



#include <stddef.h> 
#include <stdlib.h> 
#include <string.h> 
#include <direni.h> 
#include <sys/stat.h> 
#include <time.h> 

1 



#ifndef _DIRECTOR Y_H 
#include “direciory.h" 

#endif 

#ifndef _DDBDEFINES_H 
#include ■ddbdefines.h" 

#endif 

// End Interface Dependencies 

extern char *dirNamePtr; 

void DIRECTORY::read_director\'(char *root_oper) 

( 



// 

// In body comment: 

// 

// Here I will create the list to hold those filenames that 
// contain (as a substring) the operator name. This method 
// will also scan those files that do match the pattern input 
//and throw out those with the .ps, .graph, .imp.psdl, .spec.psdl 
// and .a files. What 1 hope will remain is a list of only those 
// filenames which represent that operator node and it’s 
// associated SUBTREE operator nodes. We’ll then turn around and 
// process the resulting list into an operator tree structure and 
// compare against the database schema for storage of the 
// .ps, graph, .spec.psdl, .imp.psdl, and .a text objects into 
// the database as collected sets of COMPONENT objects. 
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// 

H 

TRACER(“DIRECTORY: :read_directory "); 

DIR *dirp; 

struct dirent *capsdirent; 

char *path[MAX_LINE_LENGTH]; 

char ^pschk = NULL; 

char *graphchk =NULL; 

char *specchk = NULL; 

char *iiTipchk = NULL; 

char *sourcechk =NULL; 

TREENODE *operatomode =NULL; 
char ^filename = NULL; 
strcpy(path,dirNamePtr); 
dirp = opendir(dirNamePir): 
int coum=0: 

TREENODE *iemp: 

TRACE(root_oper): 

for (capsdirent = readdir(dirp): capsdireni != NULL; 
capsdirent = readdir(dirp)) 

{ 

fll en am e=capsdire nt->d_nam e ; 

TR.4CE(fiJename); 

pschk = capsdirent ->d_name + strlen(capsdirent ->d_name) - 3: 
graphchk = capsdirent ->d_name + strlen(cap$direni ->d_name) - 6; 
specchk = capsdirent ->d_name + strlen(capsdireni ->d_name) - 10; 
impchk = capsdirent ->d_name + strlen(capsdireni ->d_name) - 9; 
sourcechk = capsdirent ->d_name + sirlen(capsdirent ->d_name) - 2; 

if (strcmp(pschk,".ps")==0) 



pschk[0] = ‘V)'; 



else if (strcmp(graphchk,”.graph”)==0) 



graphchk[0] = ‘NO’; 



else if (strcmp(specchk/'.spec.psdl")=0) 

{ 

specchk[0] = ‘\0’; 

} 

else if (strcmp(impchk2\imp.psdl")==0) 

I 
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impchk[0] = ‘V)'; 



} 

else if (strcmp(sourcechk,’\a")=0) 

( 

sourcechk[0] = 

} 



if (stmcmp(capsdirent ->d_name»rcx)t_oper,strlen(root_oper))==0) 

{ 

TRACE(capsdirent->d_name): 

TRACE(rooi_oper) ; 

if (!(iemp=find_treenode(capsdirent->d_name))) 

{ 

operatomode = new TREENODE(capsdirent->d_nanie,NULL); 
TRACEC^A NEW OPERATOR NODE IS BEING INSERTED"): 
TRACE(capsdirent->d_najne); 
operator_nodes.insert(operaiomode); 

} 

) 

} 

closedir(dirp); 



void DIRECTORY::updatetimestainp() 

( 

DIR *dirp; 
struct dirent *filep; 

struct stat timestats; 

char *psfilename = NULL; 
char *graphfilenaine = NULL; 
char *specfilename = NULL; 
char *impfllenaine = NULL; 
char *sourcefilenanie = NULL; 
char* path; 

char *node_name = NULL; 

TREENODE *node; 

long temptime = 0; 

long filetime = 0; 

dirp = opendir(dirNamePtr); 

slist__iterator OperatorP^(operator_nodes); 
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while (node = OperatorPtr()) 



{ 

node_name = node->gemaine(); 

psfilename = (char*)(My_String(node_name) + My_String{“.ps")): 
graphfilename = (char*)(My_String(node_naine) + My_String(".graph")); 
impfilename = (char*)(My_String(node_name) + My_Siring(“.imp.psdl")); 
specfilename = (char*){My_String(node_name) + My_String(“.spec.psdJ")); 
sourcefilename = (char*)(My_String(node_name) + My_String(“.a ')); 

filep = readdir(diip): 

while ((filep != NULL) && (!(strcmp(filep->d_name,psfilename)==0))) 

{ 

filep = readdir(diip); 

1 

if ((filep 1= NULL) && (strcmp(filep->d_name,psfilename)==0)) 

{ 

path = (char *)(My_String(dirNamePtr) + My_String(“/") + 
My_String(filep->d_naine) ); 
stat(path,&timesiats); 
filetime = timestats.st_ctime; 
temprime = node->getJong_tiine(); 

node->updaletimesiamp(temptime < filetime ? fiJetime : temptime); 



rewinddir(dirp); 
filep = readdir(dirp); 

while ((filep != NULL) && (!(strcmp(filep->d_name,graphfilename)=0))) 

{ 

filep = readdir(dirp): 

} 

if ((filep != NULL) && (strcmp(filep->d_name,graphfilename)==0)) 

( 

path = (char *)(My_String(dirNamePtr) + My_String(“D + 
My_String(filep->d_name) ); 
stat(path,&timestats); 
filetime = timesiats.st_ctime; 
temptime = node*>getJong_time(); 

node->updatedmestamp(temptime < filetime ? filetime : temptime); 

) 



rewinddir(dirp); 
filep = readdir(diip); 
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while ((filep != NULL) && (!(strcmp(filep->d_name,impfilename)=0))) 

1 

filep = readdir(dirp); 

} 

if ((filep != NULL) && (strcmp(fiIep->d_name,impfilename)==0)) 

path = (char *)(My_String(dirNamePtr) + My_String(“D + 
My_String(filep->d_nanie) ); 
stat(path,&timesiats); 
filetime = timestats.st_ctime; 
temptime = node->geUong_time(); 

node->updatetimestamp(temptime < filetime ? filetime : temptime): 

} 



rewinddir(dirp); 
filep = readdir(dirp): 

while ((filep != NULL) && (!(strcmp(filep->d_name,specfilename)==0))) 

{ 

filep = readdir(dirp); 

} 

if ((filep != NL^L) && (strcmp(filep->d_name.specfilename)==0)) 

{ 

path = (char *)(My_String(dirNamePtr) + My_String(“/") + 
My_String(filep->d_name) ); 
stat(path,&timestats); 
filetime = timestats.st_ctime: 
temptime = node->get_long_time(); 

node->updatetimestamp(temptime < filetime ? filetime : temptime): 



rewinddir(dirp); 
filep = readdir(dirp); 

while ((filep != NULL) && (!(strcmp(filep->d_name,sourcefilename)=0))) 

( 

filep = readdir(dirp); 

} 

if ((filep != NULL) && (strcmp(filep->d_name»sourcefilename)=0)) 

{ 

path = (char *)(My_String(dirNamePtr) + My_String(“D + 
My_String(filep->d_name) ); 
stat(path,&timestals); 
filetime = timestats.st_ctime; 
temptime = node->getJong_time(): 

node->updatetimestamp( temptime < filetime ? filetime : temptime): 
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rewinddir(dirp); 



} 

closedir(dirp); 



TREENODE *DERECTORY::find_ireenode(char *node_name) 

slistjterator lisi_iierator(operaior_nodes); 

TREENODE *tnode; 
while (tnode=list_iteraior()) 
if (sircmp(tnode->geiname(),node_name)=0) 
return mode; 
return NTJLL; 

} 



TREENODE_linkedlist DIRECTORY ::getOperatorList() 

( 

return operator_nodes; 

} 
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// File Header 

' // : 

//.Filename : evaluation.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

i//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

I I Compiler : Glockenspiel C++ 2. 1 

// 

// End header comments 



// sees ID follows: will compile to place date/time stamp in 
// object file 

static char evaluation__cxx_SccsId[] = “@(#)evaluation,cxx 1.3W16/9r': 

// Contents 

II 

H charupper 
// upper 

// evaluate_configuraiion_function 
// evaluate_historical_function 
// evaluate^vobjecLfunction 
// evaluate _proiotype_fu nction 
II 

H Description 

II 

H Defines FUNCTIONS FOR SWTTCH STMT IN MAIN. 

II 

H This information is required to evaluate the command 
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// line input and reconstruct the proper commands internal 
// to the design database program. 

// 

II 

//End 

// Interface Dependencies 

#defme DEBUG 
#include “debug.h" 

#ifndef _DDBDEFINES_H 
#include “ddbdefines.h” 

#endif 

#include <stream.hxx> 
extern 



#include <stdlib.h> 
#include <string.h> 
#include <ctype.h> 
} 



#ifndef _E V ALUATION.H 
#include “evaluation.h" 

#endif 

// End Interface Dependencies 

char charupper(char c) 

{ 

return islower(c) ? (c-'a'+'A') : c; //change char to uppercase 

}; 



char *upper(char ^argument) 

{ 

int i; 

for (i=0; i<strlen(argument); i-H-) // convert argument to upper case 

argument[i] = chanjpper(argument[i]); // call champf>er to convert each one 
return argument; 



int evaluate_historical_function(char ^function, int arguments) 
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if (strcmp(function.”HTT”)==0) 



( 

if (arguments<4 II arguments >4) 

{ 

cerr « “<ERROR; Invalid number arguments for Historical Trail>Vi”; 
return ERROR_IN_EVALUATION: 

} 

else 

return HIST0R1CAL_TRAIL; 

1 

1 



int evaIuate_configuration_function(char ‘function, int arguments) 

{ 

if (strcmp(funcdon,’'CLN")==0) 

{ 

if (arguments<l II arguments >1) 

cerr « ‘‘<ERROR; Invalid number arguments for List Configurations>\n'’; 
return ERROR_IN_EVALUATION; 

) 

else 

return LIST_CONFIGURATIONS; // tell main() to run List_Protot>pes 

I 

else if (strcmp(function,"CUN")==0) 

I 

if (arguments<3 II arguments>3) 

I 

cerr « “<ERROR: Invalid number of arguments for Update Configuration Name>\n' 
return ERROR_IN_EVALUATION; 

} 

return UPDATE_CONFIGURATION_NAME; 

) 

else if (strcmp(function,”CGD”)==0) 

{ 

if (arguments<2 II arguments >2) 

{ 

cerr « “<ERROR: Invalid number arguments for Get Configuration Description>\n” 
return ERROR_IN_EVALUATION; 

) 

return GET_CONnGURATION_DESCRIPTION; 

} 

else if (strcmp(function,''CIC")=0) 
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if (!arguments>0) 



( 

cerr « “<ERROR: Not enough arguments for Insert Configuration>Nn": 
return ERROR_E^_EVALUATION; 

} 

return INSERT_C0NnGURAT10N: 

} 

else if (strcmp(function,”CUD")==0) 

{ 

if (arguments<3 II arguments>3) 

( 

cerr « “<ERROR: Invalid number arguments for Update Configuration Description>Vi" 
return ERROR_IN_EVALUATION; 

) 

return UPDATE_CONFIGUR.'\TION_DESCRIPTION; 

) 

else if (strcmp(function,”CGM'’)==0) 

{ 

if (arguments<2 II arguments >2) 

{ 

cerr « ”<ERROR: Invalid number arguments for Get Configuration Manager>\n"; 
return ERROR_IN_EVALUATION: 

} 

return GET_CONFIGURATION_MANAGER; 

) 

else if (strcmp(function,"CDT')=0) 

{ 

if (arguments<3 II arguments>3) 

{ 

cerr « "<ERROR: Invalid number arguments for Checkout Configuration>\n"; 
return ERR0R_IN_EVALUAT10N: 

I 

return DUMP_CONFIGURATION_OPERATORS; 

) 

else if (strcmp(function,‘'CRL”)==0) 

( 

if (arguments<2 II arguments>2) 

( 

cerr « “<ERROR: Invalid number arguments for Release Configuration Lock>W; 
return ERROR_IN_E VALUATION; 

} 

return RELEASE_CONFIGURATION_LOCK; 

) 
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else if (strcmp(function.’’CAA”)==0) 

{ 

if (arguments<2 II arguments>2) 

{ 

cerr « “<ERROR: Invalid number arguments for Checkin Configuration>\n”: 
return ERROR_IN_EVALUATION; 

} 

return ADD_CONFIGURATION_OPERATORS; 

} 

else if (strcmp(function,’’CLL”)=0) 

{ 

if (arguments<2 II arguments>2) 

{ 

cerr « “<ERROR: Invalid number arguments for List Configuration Operators>\n"; 
return ERROR_IN_EVALUATION; 

} 

return LONG_LIST_CONFIGURATION_OPERATORS; 

} 

else if (strcmp(function,”CLV'')=0) 

( 

if (arguments<2 II arguments>2) 

{ 

cerr « “<ERROR: Invalid number arguments for List Default Configuration Operator>\n" 
return ERROR_IN_EVALUATION: 

} 

return LIST_CONFIGURATION_DEFAULT_OPERATOR; 

} 

else if (strcmp(function.’'CLO”)=0) 

{ 

if (arguments<2 II arguments>2) 

{ 

cerr « “<ERROR: Invalid number arguments for List Configuration Operators>\n"; 
return ERROR_IN_EVALUATION; 

} 

return LIST_C0NFIGURAT10N_0PERAT0RS: 

1 

else if (strcmp(function,”CUM”)==0) 

{ 

if (arguments<3 II arguments>3) 

{ 

cerr « “<ERROR: Invalid number arguments for Update Configuration Manager>Vi”; 
return ERROR_IN_EVALUATION; 

} 

return UPDATE_CONFIGURATION_MANAGER; 
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else if (strcmp(function,"CDA”)==0) 



if (arguments<2 II arguments >2) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get Configuration DatoVi"; 
return ERROR_IN_EVALUATION; 

} 

return GET_CONFIGURATION_DATE; 

) 

else if (strcmp(function,”CDS”)==0) 

{ 

if (arguments<2 II arguments >2) 

{ 

cerr « “<ERROR: Invalid number arguments ...Dump Configuration Summary>Vi'' 
return ERROR_IN_EVALUATION; 

) 

return DUMP_C0NEIGUR.AT10N_SUMMARY: 

} 

else if (strcmp(function,"CDC ")=0) 
if (arguments <2 II arguments >2) 

cerr « “<ERROR: Invalid number arguments ...Get Last Date Changed>\n"; 
return ERROR_IN_EVALUATION: 

} 

return GET_CONFIGURATION_CHANGED: 

1 

else if (strcmp(function,”CPL”)=0) 

( 

if (arguments<3 II arguments>3) 

( 

cerr « “<ERROR: Invalid number arguments for Post to Configuration Log>Vi”; 
return ERROR_IN_EVALUATION; 

} 

return POST_CONFlGURATION_LOG; 

} 

else if (strcmp(function,”CGL")=0) 
i 

if (arguments<2 II arguments >2) 

I 

cerr « “<ERROR: Invalid number arguments for Get Configuration Log>'n"; 
return ERROR_IN_EVALUATION: 

) 



148 



return GET_CONHGURATION_LOG; 

) 

else if (strcmp(function,"CAO”)==0) 

( 

if (larguments == 5) 

{ 

cerr « “<ERROR: Not enough arguments for Attach Operators>\n”; 
return ERROR_IN_EVALUATION; 

) 

return ATTACH.OPERATOR; 

} 

else 

( 

cere « “Error in Configuration Command syntax \nNn”; 

) 



int evaluate_vobject_function(char *function, int arguments) 

{ 

if (strcmp(function,”VLO”)=0) 

{ 

if (arguments <211 arguments > 4) 

( 

cere « “<ERROR: Invalid number arguments for List Operators>\n”; 
return ERR0R_IN_EVALUAT10N: 

1 

return LIST_OPERATORS; // tell main() to run List Operators 

) 

else if (strcmp(function,”VUD")==0) 

{ 

if (larguments == 5) 

{ 

cere « “<ERROR: Invalid number of arguments for Update VOBJECT Description>\n" 
return ERROR_IN_EVALUATION; 

1 

return UPDATE_VOBJECT_DESCRIPTION; 

1 

else if (strcmp(function,”VGD”)==0) 

{ 

if (arguments < 2 II arguments > 4) 

I 

cere « “<ERROR: Not enough arguments to Get VOBJECT Description>\n"; 
return ERR0R_IN_EVALUAT10N; 
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) 

return GET_VOBJECT_DESCRIPTION; 



else if (strcmp(function,"VDD")==0) 

{ 

if (arguments <211 arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT Date>\n”; 
return ERROR_IN_EVALUATION; 

} 

return GET_VOBJECT_DATE; 



else if (strcmp(function,"VGV")==0) 

{ 

if (! arguments == 2) 

I 

cerr « ■*<ERROR: Invalid number arguments for Get VOBJECT Versions>\n"; 
return ERROR_IN_EVALUATION; 

1 

return GET_ VOBJECT. VERSIONS; 

1 

else if (strcmp(function."VVV")==0) 

{ 

if (arguments<l II arguments >1) 

I 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT Current Version>Nn"; 
return ERROR_IN_EVALUATION; 

1 

return GET_VOBJECT_VERSION: 



else if (strcmp(function,”VGL'')=0) 

{ 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT Lock>\n"; 
return ERROR_IN_EVALUATION; 

1 

return GET_VOBJECT_LOCK; 

} 

else if (strcmp(function."VDA”)==0) 
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{ 

if (arguments<2 II arguments >4) 

{ 

cerr « "<ERROR: Invalid number of arguments for Get VOBJECT Summary>\n"; 
return ERROR_IN_EVALUATION; 

1 

return DUMP_VOBJECT_SUMMARY; 

1 

else if (strcmp(function.”VGP”)=0) 

( 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT Postscript>\n’‘; 
return ERR0R_IN_EVALUAT10N: 

} 

return GET_VOBJECT_POSTSCRIPT; 

1 

else if (strcmp(function,"VGG")==0) 

{ 

if (arguments <211 arguments > 4 ) 

{ 

cerr « “<ERROR; Invalid number of arguments for Get VOBJECTT GRAPH>\n"; 
return ERROR_IN_EVALUATION; 

} 

return GET_VOBJECT_GRAPH; 

I 

else if (strcmp(function.'’VGI”)==0) 

{ 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT ImpIementation>\n" 
return ERROR_IN_E VALUATION; 

I 

return GET_VOBJECT_IMPLEMENTATION; 

} 

else if (strcmp(function,”VGC”)==0) 

{ 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT Specification>\n"; 
return ERROR_IN_EVALUATION; 
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return GET_VOBJECT_SPECIFICATION; 



else if (strcmp(function."VGS")=0) 

{ 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get VOBJECT Source>\n”; 
return ERROR_IN_EVALUATION; 

1 

return GET_VOBJECT_SOURCE; 

1 

else if (strcmp(function."VDS")=0) 

i 

if (arguments <211 arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Dump VOBJECT Source>\n"; 
return ERR0R_IN_EVALUAT10N; 

1 

return DUMP_VOBJECT_SUMMARY; 

1 

else if (strcmp(function."VAA")==0) 

{ 

if (arguments < 2 II arguments >4) 

{ 

cerr « “<ERROR: Invalid number of arguments for Add VOBJECT Subtree>Nn": 
return ERR0R_IN_EVALUAT10N; 

I 

return A DD_NEW_ VARIATION: 

1 

else if (strcmp(function,"VDF")=0) 

( 

if (arguments < 3 II arguments > 5) 

( 

cerr « “<ERROR: Invalid number of arguments for Dump VOBJECT FILE(S)>Vi” 
return ERROR_IN_EVALUATION; 

} 

return DUMP_VOBJECT_FILES: 

1 

else if (strcmp(function,'’VLL”)==0) 

( 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for long list Operators>\n"; 
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return ERROR_IN_EVALUATION; 

1 

return LONG_LIST_OPERATORS; 

} 

else if (sticmp(function.”VLP”)=0) 

{ 

if (arguments < 2 II arguments > 4) 

{ 

cerr « “<ERROR: Invalid number of arguments for list Parent/S iblings>'Mi“; 
return ERROR_IN_E VALUATION; 

) 

return LONG_LIST_PARENTS; 

} 

else if (stiemp(function,"VLC*’)=0) 

{ 

if (!arguments>l) 

{ 

cerr « “<ERROR; Invalid number of arguments for list Children>\n”: 
return ERROR_IN_EVALUATION; 

I 

return LONG_LIST_CHILDREN; 

) 

else if (strcmp(function,"VDT')=0) 

{ 

if (arguments < 3 II arguments > 5) 

{ 

cerr « “<ERROR: Invalid number of arguments for Dump VOBJECT TREE FILE(S)>\n 
return ERROR_DI_EVALUATION; 

) 

return DUMP_VOBJECT_TREE; 

1 

else if (strcmp(function.*’VRO")==0) 

{ 

if (arguments != 4) 

( 

cerr « “<ERROR: Invalid number of arguments for Release Operator Lock>\n*’; 
renim ERROR_IN_EVALUATION; 

} 

return RELEASE_OPERATOR_LOCK; 

) 

else if (strcmp(function,”VRS”)==0) 

{ 

if (arguments != 4) 

{ 
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cerr « “<ERROR; Invalid number of arguments for Release Operator Subtree Locks>'^ ' 
return ERROR_IN_EVALUATION; 

} 

return RELEASE_SUBTREE_LOCK; 



else 



cerr « “«<Error in VOBJECT Command syntax»>Nn'^”; 

} 



int evaluate_protot>T)e_function(char ‘function, int arguments) 

{ 

TRACERrevaluate_protot>pe_function”): 
if (strcmp(function,’'PLN”)=0) 

{ 

if (!arguments=0) 

I 

cerr « “<ERROR: Too many arguments for List Prototype Names>\n"; 
return ERR0R_IN_EVALUAT10N: 

} 

else 

return LIST_PROTOTYPES: // tell main() to run List_Prototypes 

) 

else if (strcmp(function,”PLL”)==0) 

{ 

if (!arguments==0) 

{ 

cerr « “<ERROR: Invalid number of arguments for Long List Prototypes>\n"; 
return ERROR_IN_EVALUATION: 

1 

return LONG_LIST_PROTOTYPES; 

I 

else if (strcmp(function,"PDS”)=0) 

{ 

if (arguments<l II arguments >1) 

I 

cerr « “<ERROR: Invalid number of arguments for Dump Prototype Summary>V; 
return ERROR.IN.EVALUATION; 

} 

return DUMP_PROTOTYPE_SUMMARY; 
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) 

else if (strcmp(function,”PGL”)=0) 

{ 

if (arguments<l II arguments >1) 

{ 

cerr « “<ERROR: Invalid number of arguments for Get Prototype Leader>\n’’; 
return ERROR_IN_EVALUATION; 

) 

return GET_PROTOTYPE_LEADER; 

1 

else if (strcmp(function,"PGD”)=0) 

{ 

if (arguments<l II arguments >1) 

{ 

cerr « “<ERROR: Invalid number arguments for Get Prototype Description>\n" 
return ERROR_IN_EVALUATION; 

) 

return GET_PR0T0TYPE_DESCRIPT10N; 

) 

else if (strcmp(function,"PRD ')==0) 

{ 

if (arguments<l II arguments >1) 

( 

cerr « “<ERROR: Invalid number arguments for Reuieve Prototype Date>\n": 
return ERROR_IN_EVALUATION; 

} 

return RETRlEVE_PROTOTYPE_DATE: 

) 

else if (strcmp(function,"PIP”)==0) 

I 

if (!arguments>0) 

I 

cerr « “<ERROR: Invalid number arguments for Insert Prototype>Vi"; 
return ERR0R_IN_EVALUAT10N: 

I 

return INSERT_PROTOTYPE; 

} 

else if (strcmp(function,’’PUL")=0) 

{ 

if (arguments<2 II arguments >2) 

{ 

cerr « “<ERROR: Invalid number arguments for Update Leader>\n”; 
return ERROR_IN_EVALUATION; 
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return UPDATE_PROTOTYPE_LEADER; 

} 

else if (strcmp(function,"PUD'’)=0) 

( 

if (! arguments==l) 

( 

cenr « “<ERROR: Invalid number arguments for Update Description>\n”; 
return ERROR_IN_EVALUATION; 

I 

return UPDATE_PROTOTYPE_DESC; 

1 

else if (strcmp(function.”PUN'*)=0) 

( 

if (! arguments==l) 

( 

cerr « ‘ <ERROR: Invalid number arguments for Update Name>\n"; 
return ERROR_IN_EVALUATION; 

1 

return UPDATE_PROTOTYPE_NAME: 

I 

else if (strcmp(function,"PGC")==0) 

( 

if (arguments<l II arguments>l) 

( 

cenr « "<ERROR: Invalid number arguments for Get_Latest_Configuration>\n" 
return ERROR_LN_EVALUATION; 

} 

return GET_LATEST_CONFIGURATION; 



else if (strcmp(function,"PLV")=0) 

1 

if (!arguments=0) 

1 

cerr « “<ERROR: Too many arguments for List Prototype Variations>\n"; 
return ERROR_IN_EVALUATION; 

1 

return PROTOTYPE_VARIATION_LIST: 

} 

else if (strcmp(function,"PVA")=0) 

i 

if (!arguments=0) 

( 
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cerr « “<ERROR: Too many arguments for List Prototype Variations and Versions>\n" 
return ERROR_IN_EVALUATION; 

I 

return PROTOTYPE_VAR_AND_VER_LIST; 

1 

else if (strcmp(function,”PVV”)=0) 

{ 

if (arguments<l II arguments >1) 

{ 

cerr « arguments « 

cerr « “<ERROR: Too many arguments for List Prototype Versions of a Variaiion>\n"; 
return ERR0R_IN_EVALUAT10N: 

} 

return PROTOTYPE_VERSION_LlST; 

} 



else 

{ 

cerr « “Error in Prototype Command syntax \n\n"; 

I 
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// File Header 

// : 

//J^ilename : evaluation.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

// Compiler : Glockenspiel C-h- 2.1 

// 

// End header comments - 



#ifndef _E V ALU ATION_H 
#define _EV ALUATION.H 

// sees ID follows: will compile to place date/time stamp in object file 

static char evaluation_h_Sccsld[] = “@(#)evaluation.h 1.3\t9/16/9r*; 

H Contents 

// 

// Prototypes of functions to evaluate the command line TAG 
// argument and set the appropriate case statement in main. 

// 

// 

//End 

// Interface Dependencies 

// 

//NONE 

II 
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// End Interface Dependencies 



char charupper(char c); 
char *upf)er(char ^argument); 

int evaluate_historical_funciion(char *function, int arguments); 
ini evaIuaie_configuration_function(char *function, int arguments); 
int evaIuate_vobject_function(char *function, int arguments); 
int evaluate_prototype_function(char *function, int arguments); 

// Description 

II 

H charupper 

II 

H Converts lower case letters to upp>er case. 

// 

// upper 

II 

// Converts the command line TAG field to upper case. Calls 
// charupper to conven each letter. 

II 

// evaluaie_configuration_function 

II 

H Determines the appropriate case statement to be executed for 
// database operation pertaining to configurations. 

II 

H evaluate_vobject_function 

II 

// Determines the appropriate case statement to be executed for 
// database operations pertaining to versioned objects. 

II 

H evaluate_prototvpe_function 

II 

H Determines the appropriate case statement to be executed for 
// database operations pertaining to prototypes. 

II 

// End Description 

#endif // _E V ALUATION^H 
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// File Header 

// : 

//.Filename : nodesuppon.h 

//Dale : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

I I Compiler ; Glockenspiel C-h- 2.1 

II 

H End header comments 



#ifndef _NODESUPPORT_H 
#define _NODESUPPORT_H 



// sees ID follows: will compile to place date/time stamp in 
//object file 

static char nodesupport_h_SccsId[] = “@(#)nodesuppon.h 1.3M9/ 16/91”; 

// Contents 

II 

H NODESUPPPORT HEADER FILE 

II 

// Description 

II 

H SIMPLE NODE SUPPORT Functions 

// 

//End 
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// Interface Dependencies 



#ifndef _TR£ENODE^H 
#include “ireenode.h” 

#endif 

// End Interface Dependencies 

TREENODE* root_find(TREENODE_linlcedIist list_to_search, const char* str); 
int str_siiffix_check(char* str,char ch); 
int proper_super_string(char* strl, char* str2): 

int proper_super_NODE_check('THEENODE* node_ptr, char* target_string); 

// Description 

II 

// root_find 

II 

// Locates the root node associated with given operator name. 

II 

// str_suffix_check 

II 

// Locates the suffix of a given string. 

II 

H proper_super_string 

II 

H Determines whether one string is a prefix of another string 
// (i.e., one operator is the child of another operator). 

II 

H proper_super_NODE_check 

II 

H Determines whether a given node should be added to the childlist 
// of a given op)erator name. 

II 

II End Description 

#endif // end nodesupport header file 



// File Header 

// : 

//EUename : nodesupport.cxx 

//.sees ID : 1.3 

//.Release No....: 1 
//.Date : 9/16/91 
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//.Author : Garry Lewis 

// : E>rew Dwyer 

//.Compiler : Glockenspiel C++ 2.1 

// : 

// End header comments 

// sees ID follows: will compile to place date/time stamp in 
// object file 

static char nodesupport_cxx_SccsIdn = “@(#)nodesupport.cxx 1.3^9/16/91"; 

// Contents 

// 

// root_find 
// str_suffix_check 
// proper_super_string 
// proper_s uper_N ODE_c heck 
// 

//End 

// Interface Dependencies 

// TURN ON TRACE-DEBUG 
#define DEBUG 
#include "debug. h" 



extern “C-" 



#include <string.h> 

} 



#ifndef _NODESUPPORT_H 
#include “nodesupport.h" 
#endif 

//End Interface Dependencies - 



TREENODE* rooi_find(TREENODE_linkedlist Iist_to_search, const char* str) 

// Summary 

// 

// this function returns the address of the NODE in the list 
// that has its operator_name matching *str. 

II 
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//End Summary 



{ 

slistjterator ret_node(list_to_search); 

TREENODE* node; 

// BELOW SHOULD BE REPLACED WITH THE ABOVE 
while (ret_node()) 

{ 

node = ret_node(): 

if ( !strcmp(sir,node->getname{) ) ) return node; 

} 

return NULL; 

} 



int str_suffix_check(char* strxhar ch) 

// Summary 

// 

// this function checks to see if the char at address str is ch 
// and that ch only appears in the string *str at this position. 

// Thus *str with ch = is of the form “.example with no more 
// periods" . 

II 

II End Summary 



( 

if (*str != ch ) return 0; 
else // check for “ch" in rest of string 
{ 

if (strchr(str+ L ch ) ) return 0; 
else return 1; 



int proper_super_string(char* strL char* str2) 

// Summary 

II 

H This function checks to see if strl is a candidate to be a 
// child of str2 in the multi-way tree. 

II 
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//End Summary 



// check to see if str2 is a prefix of strl 
if (strl != sirstr($trl,str2) ) 
return 0; 
else 
{ 

char* loc = strl + strlen(str2); 
return str_suffix_check(loc , */); 

} 



int proper_super_NODE_check(TREENODE* node_ptr, char* target_string) 

// Summary 

II 

H This functions checks to see if the NODE returned by 
// Listiterator should be added to the childjist of the NODE 
// associated with target siring. It return a 1 if it should. 

// 

//End Summary 



{ 

return proper_super_string(node_ptr->getname(), target_string) ; 

} 



// File Header - 

// : 

//.Filename : protfunc.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
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changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*1 

I I Compiler : Glockenspiel C++ 2, 1 

// 

// End header comments 



#ifndef _PROTFUNC_H 
#define _PROTFUNC_H 

// sees ID follows: will compile to place date/time stamp in 
// object file 

static char protfunc_h_SccsId[] = “@(#)protfunc.h 1 .3\t9/16/9r': 

// Contents 

// 

// Prototypes for functions related to manipulating 
// instances of the class PROTOTYPE. 

II 

//End 

void list_prot_func(int); 
void long__list_prot_func(int); 

void list_prot_variations(int): 
void list_prot_versions(int); 
void list_prot_var_and_ver(int): 

void get_prot_leader_func(int, char’^): 
void get_prot_descripdon_func(int, char*); 
void dump_prot_summary_func(int, char *); 
void retrieve_prot_date_func(int, char*); 
void insen_prot_func(int, char*, char*, char*); 
void update_prot_leader_func(int, char*, char*); 
void update j)rot_desc_func(inu char*, char*); 
void update_prot_name_func(int, char*, char*); 

// Description 

II 

II listj)rot_func 
II 

// Provide the name of prototypes in the design database. 
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// 

// long_list_prot_func 

// 

// Provides a list of all prototypes, the default configuration 
// assigned to a prototype and the version number of the root 
// versioned object. 

// 

// get_prot_leader_func 

// 

// Provides the name of the leader assigned to a prototype. 

// 

// get_prot_description_func 

// 

// Provides the description of a given prototype. 

// 

// dum p_prot_s um mary_f unc 

// 

// Provides a summary of the prototype. Include creation date, 
// leader, default configuration, and a description. 

// 

// retrieve_prot_date_func 

// 

// Provides the creation date. 

// 

// insert_prot_func 

// 

// Creates a new prototype in the database. 

// 

// update_prot_leader_func 

// 

// Changes the prototype leader's name. 

II 

H update_prot_desc_func 
II 

H Changes the description of a prototype. 

// 

// update_prot_name_func 

// 

// Changes the prototype name. 

// 

// End Description - 

#endif // _PROTFUNC,H 
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// File Header 

// : 

//.Filename : proifunc.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-h- 2. 1 

// 

// End header comments 



// sees ID follows: will compile to place date/time stamp in 
// object file 

static char protfunc_cxx_SccsIdQ = “@(#)proifunc.cxx 1.3W16/91"; 

H Contents 

// 

// lisl_prot_func 
// long_list_prot_func 
// get_prot_leader_func 
// get_prot_description_func 
// dump_prot_summary_func 
// retrieve_prot_date_func 
// insert_prot_func 
// update_prot_leader_func 
// update_prot_desc_func 
// update_prot_name_func 
// 

//End 
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// Implementation Dependencies 



// TURN ON TRACE-DEBUG 

#define DEBUG 
#include “debug.h" 

#ifndef _DDBDEFINES_H 
#include “ddbdefines.h'’ 

#endif 

#include “My_String.h" 
#include <siream.hxx> 
#include <Lisi.h> 

#include <Directory.h> 

extern “C--" 

{ 

#include <sys/time.h> 

#include <sys/t\^s.h> 

} 



#ifndef _PROTOTYPE_H 
#include "protoi\T3e.h" 

#endif 

// End Implementation Dependencies 



// Interface Dependencies 

#ifndef _PROTFUNC^H 
#include “protfunc.h” 

#endif 

// End Interface Dependencies 

extern List *myPrototypeList; 
extern char *ddbRootDir; 
PROTOTYPE *prototypePtr; 
ifstream inFile; 



void lisi_prot_func(int number_arguments) 

{ 

switch (number_arguments) 

{ 

case 0: 

{ 

OC_setWorkingDirectory(ddbRootDir); 
Listlterator my_iterate(myPrototypeLisi): 
while(myJieraie.moreDataO) 

{ 

cout « (char *)my_iterateO « 



) 

break; 

default: 

cerr « *‘<ERROR: problem listing prototypes in database>\n"; 

} 



void long_list_prot_func(int number_arguments) 

{ 

char *proto_name = (char *)0; 
char *configname = (char *)0; 
switch (number_arguments) 

{ 

case 0: 

{ 

OC_setWorkingDirectory(ddbRootDir); 

List &protoReference = *myPrototypeList; 

List *proto_names = (List*)0; 
proto_names = new List(protoReference); 

Listlterator my_iterate(proto_names); 
while(my_iterate.moreData()) 

{ 

Directory *prototype_dir==(Directory*X)i 
char *proto_name = (char *)0; 
char *name = (char *)0; 
proio_name = (char *)my_iterateO; 

name = (char *)(My_String(proto_name) + My_String(“_dir") ); 

prototype_dir = (Directory *)OC_lookup(name); 
if (prototype_dir) 

OC_setWorkingDirectory(prototype_dir); 



char *proiotype_naine = (char*)(My_String(proio_name) -»■ 

My_S tring(PROTOTYPE_EXT)); 
protot>pePtr = (PROTOTYPE*)OC_lookup(protoiype_name); 
if (prototypePtr) 

1 

CONFIGURATION *configPtr; 

configPtr = prototypePir->getDefaullConflgxirationO; 

if (configPtr) 

{ 

configname =new char [strlen(configPtr->name()+l)]; 
strcpy(configname,configPtr->nameO); 

} 

else 

{ 

configname = new char [2]; 
strcpy(configname/' 

1 

cout « proio_name; 
int i=0; 

for (i=0;i<(PRINT_CONFIG_LOCATION-strlen(proio_name));i++) 
cout « “ 

cout « configname: 

for (i=0;i<(PRINT_VERSION_LOCATION- 

(PRINT_CONTIG_LOCATION+strIen(configname)));i++) 
cout « “ 

V_OBJECT *vobjeciPtr = prototype Ptr->gelVobject(); 
if (vobjectPtr) 

{ 

int variation = vobjectPtr->getVariationNumber(): 
cout « variation « “ 

} 

else 

cout « 

if (vobjectPtr) 

{ 

int version = vobJectPtr->getVersionNumberO; 
cout « version « ‘^n”:: 

1 

else 

cout « ““ « 
delete name; 
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delete configname; 



) 

) 

) 

break; 

default: 

cerr « “<ERROR: problem long listing prototypes in database>Nn" 



} 



) 



void list_prot_variations(int number_arguments) 

{ 

switch (number_arguments) 

{ 

case 0: 

{ 

cerr « “In list prototype variationsNn"; 

) 

break: 

default: 

cerr « “<ERROR: Problem listing prototype variationsNn": 

) 

} 



void list_prot_versions(int number^arguments) 

{ 

switch (number_arguments) 

( 

case 1: 

cerr « “In list prototype versionsNn"; 

} 

break; 

default: 

cerr « “<ERROR: Problem listing prototype versionsNn”; 



void list_prot_var_and_ver(int number_arguments) 

{ 

switch (number_arguments) 

( 

case 0: 

{ 

cerr « “In list prototype variations and versionsNn”; 
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} 

break; 

default* 

cerr « “<ERROR: Problem listing prototype variations and versionsNn 

} 



void get_prot_leader_func(int number_arguments, char *argl) 

{ 

switch (number_arguments) 

{ 

case 1: 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy(prototype_name»arg 1); 
strcat(prototype_namePROTOTYPE_EXT): 
prototypePtr = (PROTOTYPE*)OC_lookup(prototype_name); 
prototypePtr -> getPrototypeLeader(); 
break: 
default 

cerr « ‘‘<ERROR: extra arguments in get description call\n"; 

} 

} 



void get_prot_description_func(int number_arguments, char *argl) 

( 



switch (number_arguments) 

{ 

case 1: 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy(prototype_name,arg 1); 
strcat(prototype_name,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC_lookup(prototype_name); 
prototypePtr -> getProtolypeDescriptionO; 
break; 
default: 

cerr « “<ERROR: extra arguments in get description calNi”; 

} 

} 



void dump_prot_summary_func(int number_arguments» char *argl) 

{ 
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switch (number_argumenls) 

< 

case 1: 

char* prototype^name = 

(char*)(My_String(argl)+My_String(PROTOTYPE_EXT)); 
prolotypePtr = (PROTOTYPE*)OC_lookup(prototype_name); 
prototypePtr -> dumpPrototypeSummaryO; 
break; 
default: 

cerr « “<ERROR: extra arguments in dump Prototype Summary callNn"; 

} 



void retrieve_prot_daie_func(int number_arguments, char *argl) 

{ 

switch (number_arguments) 

{ 

case 1: 

char* prototype_name = 

(char*)(My_String(argl)+My_String(PROTOTYPE_EXT)): 
prototypePtr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (prolotypePtr) 

{ 

timej prolTime = prototypePtr -> getProtCrealionDaieQ; 
cout « ctime(&proiTime); 

) 

else 

{ 

cerr « “<Proloi>pe “ « argl « “ not found>\n" 

« “<find prototype creation date operation aboned>”; 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for prototype time retrieval>\n”; 

} 



void inseri_prol_func(int number_arguments, char *argl, char *arg2, char *arg3) 

{ 



char* prototype_name = 

(char*)(My_String(argl)+My_String(PROTOTYPE_EXT)); 
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protoiypePtr = (PROTOTYPE *)OC_lookup(prototype_name); 
if (IprototypePir) 

{ 

switch (number_arguments) 

{ 

case 1: 

prototypePtr = new PROTOTYPE(protot>T>e_naine); 
OC_setWorkingDirectory(ddbRootDir); 
myPrototypeLisi -> Insen(argl); 
myPrototypeList -> putObjeci(); 
break; 
case 2: 
case 3: 

prototypePtr = new PROTOTYPE(protot>T>e_name, arg2); 
inFile.open(arg3, ios::in); 
if (inFile) 

prototvpePtr -> updatePrototypeDescription(arg3, inFile): 
OC_se tW orki ng Direc tor\'(ddbRoo tD ir) ; 
myProtot>peList -> Insen(argl): 
myProtot>peLisi -> putObject(): 
inFilexloseO; 
break; 
default: 

cerr « “<ERROR: invalid number args for insert prototype>\n'*: 



else 

{ 

cerr « “<NOTE: “ « argl « already exists!>\n"; 
return; 



void update_prot_leader_func(int number_arguments, char *argl, char *arg2) 

{ 

switch (number_arguments) 

{ 

case 2: 

char* prototype_name = 

(char*)(My_String(argl)+My_String(PROTOTYPE_EXT)); 
prototypePtr = (PROTOTYPE*)OCJookup(prototype_name); 
prototypePtr -> changeProtot\peLeader(arg2); 
break; 
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default: 

cerr « “<ERROR: invalid number args for update Leader>\n”; 

I 



void update_prot_desc_func(int number_arguments, char *argl, char *arg2) 

{ 

switch (number_arguments) 

{ 

case 2: 

{ 

inFile.open(arg2jos: :in); 
if (HnFile) 

{ 

cerr « “File with description contents does not existVi" 

« “Aborting prototype update_description\n"; 



else 

{ 

char *prototype_name = new char [strlen(argl)+5]; 

strcpy(prototype_name,arg 1 ); 

strcat(prototype_namePROTOTYPE_EXT); 

prototypePtr = (PROTOTYPE*)OC_lookup(prototype_name); 

prototypePtr -> updatePrototypeDescription(arg2JnFile); 

inFile.closeO; 

1 

break; 

} 

default: 

cerr « “<ERROR: invalid number args for update description>\n”; 

} 



void update_prot_name_func(int number_arguments, char *argK char *arg2) 

{ 

switch (number_arguments) 

{ 

case 2: 

char* prototype_name = 

(char*)(My_String(arg 1 )+My_String(PROTOTYPE_EXT)); 
char* new_prototype_name = 

(char*)(My_String(arg2)+My_String(PROTOTYPE_EXT)); 
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prototypePtr = (PROTOTYPE*X3C_lookup(prototype_name); 
prototypePtr -> changePrototypeName(new_prototype_name); 
break; 
default 

cerr « “<ERROR; invalid number args for update Name>\n”; 



// File Header 

// : 

//i^ilenaine : prototype.h 

// Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

//Compiler : Glockenspiel C++ 2.1 

// 

// End header comments 



#ifndef _PROTOTYPE_H 
#define _PROTOTYPE_H 

// sees ID follows: will compile to place date/time stamp in 
// object file 

static char prototype_h_SccsIdQ = "@(#)protot>pe.h 1.3\t9/ 16/91"; 

// Contents 

// 

// PROTOTYPE 

// 

// Description 

// 

// Defines class PROTOTYPE. 

// 

//End 
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// Interface Dependencies 



\ 



#include <Objecth> 

#include <LisLh> 

#include <Dictionary.h> 
#include <Reference.h> 
#include “ReferenceMacros.h” 



extern “C-” 

{ 

#include <sys/time.h> 
#include <sys/types.h> 
} 



#ifndef _TEXT_OB JECT.H 
#include “text_object.h" 

#endif 

#ifndef _CONFIGURATION_H 
#include "configuration. h" 

#endif 

#ifndef_VOBJECT_H 
#include "versioned_object.h" 

#endif 

TypeCheckReference(ConfDictReference, Reference, Dictionary); 
TypeCheckReference(TextObjectReference, Reference, TEXT_OBJECT); 
T\y)eCheckReference(DefauItConfReference, Reference, CONFIGURATION); 

// End Interface Dependencies 

#define DEFAULT_NAME "" 

//Class// 

class PROTOTYPE : public Object 

{ 

private: 

char *protleader; 
int protDictIndex; 
time_t protCreationDate; 

TextObJectReference protdescription; 

ConfDictReference prot_configurationJist; //points to a Dictionary 
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DefaultConfReference prot_default_configuration; 
public: 

PROTOTYPE(APL *); 

PROTOTYPE(char *prototype_name, 

char *prototype_leader=DEFAULT_NAME); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual Type *getDirectTypeO: 
char *getName(); 
char *getConfigNaine(); 
void getPrototypeNameO; 
void getPrototypeLeaderO; 
void getPrototypeDescriptionO; 

void changePrototypeName(char *new_prototype_name); 
void changePrototypeLeader(char *new_prototype_leader); 
void updatePrototypeDescription(char*, ifstream&); 
void dumpPrototypeSummaiy(j; 

void addConfiguration(CONFIGURATION *configuraUon); 
void listConfigurationsO; 
dme_t setProtCreationDateO: 
time_t getProtCreationDateO; 
void getDefaultConfigNameO; 

CONFIGURATION *getConfiguration(char *): 
CONFIGURATION *getDefaultConfiguralion(); 
V_OBJECT *getVobjectO: 

-PROTOTYPEO I Destroy(FALSE); ) 



// Description 

// 

// Defines a PROTOTYPE class. 

// 

// Constructor 

// 

// prototype -APL 

// 

// ONTOS required constructor 

// 

// prototype 

// 

// Constructs a prototype object from the given name, 
// and optional team leader of the prototype. 

// 
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// Public Members 

// 

// Destroy 

II 

H used to cleanup memory during deletion and aborts. 

// 

// getDirectType 

// 

// Return the ONTOS Type of class PROTOTYPE. 

// 

// getName 

// 

// Returns a character string containing the name of the prototype 

II 

// getConfigName 

II 

H Returns a character string containing the last configuration 
// worked on by a user 
// 

// gelPrototypeName 

// 

// Prints the prototype name to standard output 

// 

// gelPrototvpeLeader 

// 

// Displays the prototype designer team leader's name. 

// 

// getPrototypeProtdescription 

// 

// Displays a protdescription of the prototype. 

// 

// changePrototypeName 

// 

// Change the name of the prototype. 

// 

// changePrototypeLeader 

// 

// Change the prototype leader’s name. 

// 

// updatePrototypeProtdescription 

// 

// Adds a protdescription to a PROTOTYPE object. 

// 

// dumpPrototypeSummary 
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// 

// Provides date created, leader, default configuration, 

// and description of a prototype, 

// 

// addConfiguradon 

// 

// Adds a configuration with a given name to the prototype 

// 

// listConfigurations 

// 

// List the names of all the configurations in the prototype, 

// 

// getDefaultConfigName 

// 

// Displays the name of the default configuration. 

// 

// getConfiguration 

// 

// Used by this class as a support function to update the default 
// configuration. 

// 

// getDefaultConfiguration 

// 

// returns a pointer to the default Configuration 

// 

// getVobject 

// 

// returns the most current root V_0 EJECT (Operator or Type) 
// associated with a prototype. 

// 

// -prototype 

// 

// The class destructor. 

// 

//End 

#endif // _PROTOTYPE_H 
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// File Header 

// : 

//J^ilename : prototype .cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
!* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-m- 2.1 

II 

H End header comments 



// sees ID follows: will compile to place date/time stamp in 
// object file 

static char prototype_cxx_SccsId[] = “(S)(#)protot>pe.cxx 1.3X19/16/91": 

H Contents 

II 

H PROTOTYPE::PROTOTYPE ONTOS constructor 

// PROTOTYPE::PROTOTYPE constructor 

// PROTOTYPE::Destroy 

// PROTOTYPE::getDirectType 

// PROTOTYPE::geLName 

// PROTOTYPE::getConfigName 

// PROTOTYPE::getPrototypeName 

// PROTOTY PE : : ge tPrototypeLe ader 

// PROTOTY PE : : getPrototype Description 

// PROTOTYPE : : getNumbeiOfVariations: 

// PROTOTYPE::dLsplayNumberOfV ariations; 

// PROTOTYPE::incrementVariations: 
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// PROTOTYPE;:changePrototypeNaine 
// PROTOTYPE::changePrototypeLeader 
// PROTOTYPE;:updatePrototypeDescription 
// PROTOTYPErrdumpPrototypeSummary 
// PROTOTYPE;:addConfiguration 
// PROTOTYPE;:IistConfigurations 
// PROTOTYPE;;setProtCreationDate 
// PROTOTYPE;:geiProtCreationDaie 
// PROTOTYPE;;getDefaultConfigName 
// PROTOTYPE;:getConfiguration 
// PROTOTYPE::getDefaultConfiguration 
// PROTOTYPE;:getVobject 
// 

// Description 

// 

// Implementation of class PROTOTYPE member functions. 

// 

//End 

// Interface Dependencies 

// TURN ON TRACE-DEBUG 
#define DEBUG 
#include “debug.h” 



#include <GlobalEntities.h> 
#include <Directory.h> 
#include <stream.hxx> 



extern “C-” 



tinclude <sys/time.h> 
#include <strings.h> 

) 

#ifndef _PROTOTYPE_H 
#include “prototype.h" 
#endif 



// End Interface Dependencies - 

extern Type *PROTOTYPE_OType; 
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extern Type *CONFIGURATION_OType; 
extern Type *V_OBJECT_OType; 

// ONTOS required constructor // 

PROTOTYPE::PROTOTYPE(APL *theAPL) : (theAPL) 

{ 

1 ; 

// New Instance Constructor// 

PROTOTYPE::PROTOTYPE(char *prototype_name, 

char *prototype_leader) : (prototype^name) 

// Summary 

// 

// Constructs a persistent prototype object. A PROTOTYPE object 
// contains general management information about a prototype and 
// a reference to a container holding configuration objects. 

// 

// Parameter 

// 

// prototype_name 

// 

// A pointer to a character string. 

// 

// prototypejeader 

// 

// A pointer to a character string. 

// 

// Functional Description 

// 

// Passes the object name to class Object. Copies the leader's name 
// into private data members. We initialize the description to null 
// and create a dictionary to hold various configurations. 

// 

//End 



initDirectType(PROTOTYPE_OType); 



protleader = new char[strlen(prototype_leader)+l]; 
strcpy(protleader, prototypejeader); 
protDictIndex = 0; 
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protCreationDate = setProtCreationDate(); 

protdescription.initToNullO; 

prot_default_configuration.initToNull(); 



if(! CONFIGURATION.OType) 

I 

CONFIGURATION.OType = (Type*)OC_lookup(“CONnGURATION”); 

) 

Dictionary *new_configuration = new Dictionary(OC_integer, 

CONFIGURATION_OType. 

TRUE, FALSE); 

new_configuration ->putObject(); 
prot_configuration_list.Reset(new_configuradon, this); 

putObjectO; 

} 

// End Constructor PROTOTYPE: :PROTOTYPE // 

// Member Function // 

void PROTOTYPE: :Destroy(Boolean aborted) 

{ 

delete protleader; 
if (aborted) 

1 

Object:;Destroy(aborted); 

} 

} 

Type* PROTOTYPE::getDirectType() 

// Summary 

// 

// returns the ONTOS Type for the prototype class. 

// 

// Return value 

// 

// A pointer to an ONTOS Type. 

// 

//End 
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return PROTOTYPE_OType; 



char* PROTOTYPE: igetNameO 

// Summary 

// 

// returns the name of the prototype 

// 

// Return value 

// 

// A pointer to a character string 

// 

//End 



{ 

Directory *directory=(Direciory *)0: 
char *name=(char *)0: 
char *temp=(char *)0; 

if(!ihis) 

{ 

cerr « “<ERROR: cannot get the name of a null PROTOTYPE>\n"; 
return NULL: 

} 

else 

{ 

name = NameQ; 

OC_getNameComponents(name, ^directory, &name); 
temp = new char [strlen(name)+l]; 
temp = smok(name,".")* 
return temp; 

1 



void PROTOTYPE: igetPrototypeNameO 

// Summary 

// 

// Displays the name of the prototype 

// 

// Return value 

// 

// Displays the Prototype Name and a linefeed to the sidout 
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// 

//End 



{ 

Directory *directory; 
char *name; 

if(!this) 

{ 

cerr « “<ERROR: cannot get the name of a null PROTOTYPE>\n"; 
return; 

I 

else 

{ 

name = NarneQ; 

OC_getNameComponents(name, &directory, &name): 
cout « name « “Vi”; 

I 



void PROTOTYPE::gelPrototypeLeader() 

// Summary 

// 

// Displays the name of the prototype leader 

// 

// Return value 

// 

// Displays the Prototype leader and a linefeed to the stdout 

// 

//End 



if(!this) 

cerr « “<ERROR: cannot get the leader’s name of a null PROTOTYPE>Vi" 
return; 

I 

cout « protleader « ‘^n”; 

I 

void PROTOTYPE; ;getPrototypeDescription() 



187 



// Summary 

// 

// Displays the prototype description 

// 

// Return value 

// 

// Display Description to stdout if description exists 

// 

//End - 

{ 

if(!this) 

{ 

cerr « “<ERROR; cannot get the description of a null PROTOTYPE>\n”; 
return; 

} 

if{!protdescription) 

{ 

cerr « “<ERROR; This prototype does not contain a description>Nn": 
return; 

} 

else 

{ 

TEXT_OBJECT* myTextObjPu = (TEXT_OBJECT*) protdescription.Binding(this); 
myTextObjPtr -> text(cout); 
cout « “Nn”; 

} 



void PROTOTYPE;;changePrototypeName(char *new_protot\pe_name) 

// Summary 

// 

// Changes the prototype name 

// 

// Parameter 

// 

// new_prototype_name 

// 

// a character string pointer containing the new name 

// 

// Return value 

// 

// N/A 



188 



// 

//End 



( 

if(!this) 

I 

cerr « “<ERROR: cannot set the name of a null PROTOTYPE>\n"; 
return; 

} 

Name(new_prototype_name): 

1 



void PROTOTYPE:;changePrototypeLeader(char *new_prototype_leader) 

// Summary 

// 

// changes the prototype leader 

// 

// Parameter 

// 

// new_prototype_leader 

// 

// a character string pointer containing the new leader’s name 

// 

// Return value 

// 

// N/A 

// 

//End 

I 

if(!this) 

1 

cerr « “<ERROR; cannot change the leader of a null PROTOTYPE>\n”; 
return; 

) 

delete protleader; 

protleader = new char[strlen(new_prototype_leader)+l]; 
strcpyfprotleader, new_prototype_leader); 
putObjectO: 

) 



void PROTOTYPE:;updatePrototypeDescription(char *fileName, ifstream& input_file_stream) 
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// Summary 

// 

// changes the protot>’pe description 

// 

// Parameter 

// 

// fileName 

// 

// a character string pointer containing the new name of 
// the file containing the new description. 

// 

// input_file_stream 

// 

// the file handle of the input description file. 

// 

// Return value 

// 

// N/A 
// 

//End 



if (!protdescription) 

{ 

TEXT.OBJECT *textObjectPtr = new TEXT_OBJECT(); 
textObjectPtr -> append(fileName. input_file_stream); 
protdescriptionJleset(textObjeciPtr, this); 
putObjectO; 

I 

else 

I 

TEXT_OBJECT *textObjectPtr = (TEXT_OBJECT*) protdescription.Binding(this); 

textObjectPtr -> resetTheText(); 

textObjectPtr -> appendffileName, input_file_stream); 

putObjectO: 



} 

void PROTOTYPE;:dumpPrototypeSummary() 

{ 



// Summary' 

// 
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// Displays the date created, leader, default config, and 
// description of a prototype to stdout 
// 1 item per line ending with the (potentially) multi-line 

// description. 

// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// N/A 

// 

//End 

TRACER("dumpPrototypeSummary'’); 
time_t creationdate = 0; 
creationdate = getProtCreationDate(); 

TRACEC’Creation Date: “): 
cout « ctime(&creationdate); 
getPrototypeLe ader() : 
getDefaultConfigNameO: 
getPrototypeDescriptionO; 

I 



void PROTOTYPE::addConfiguration(CONFIGURATION *configuration) 

I 

// Summary 

II 

H adds a configuration to the prototype 

// 

// Parameter 

// 

// configuration 

// 

// a pointer to the configuration to be added to the 
// prototype. 

II 

II 

H Remm value 

// 

// N/A 

// 

//End 
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if(!lhis) 



{ 

cerr « ‘‘<ERROR: cannot set the description of a null PROTOTYPE>Vi"; 
return; 

} 

if(!configuration) 

{ 

ceiT « “<ERROR: cannot give to a PROTOTYPE a null configuraiion>'^" 
return; 

} 

else 

{ 

protDictIndex = protDictlndex + 1; 

Dictionary*confDictionaryPtr= 

(Dictionary* )prot_configuration_list.Binding(this); 
confDictionaryPtr -> Lnsert(protDictIndex, (Entity *)configuration); 
confDictionaryPtr -> putObject(); 
prot_default_configuration.Reset(configuration, this); 
putObjectO; 

} 

} 



void PROTOTYPE: :listConfigurations() 

// Summary 

II 

H Display the configuration names contained in this protot> 7 )e 
// to stdout. 1 configuration / line. 

II 

H Parameter 

II 

H N/A 
// 

// Return value 

II 

H N/A 
// 

//End 



{ 

CONFIGURATION *the_configuration; 
char *name; 

Directory ^directory; 
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if(!prot_configuration_list) 

{ 

ceiT « "<ERROR: cannot return a prototype from an empty list>\n”; 
return; 

) 



Dictionary *confDictionaryPtr = 
(Dictionary*)prot_configuration_list.Binding(this); 

Dictionarylterator conftglist_iterator(confDictionaryPtr); 

whiIe(the_configuration =(CONFIGURATlON*)(Entity*)configlist_iterator0) 

{ 

if (name = the_configuration->Name()); 

{ 

OC_getNameComponents(name, &directory, &name); 
cout « name « 

) 

I 



//Member Function // 

time_t PROTOTYPE::setProtCreationDate() 

// Summary 

// 

// sets the creation date to system date at time of this call. 

// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// time_t as a default long value containing the system time 
// This function as a byproduct updates the protCreationDate 
// attribute field. 

// 

//End 

I 

time_t mytloc=0; 
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dme_t theTime; 

return theTime = time(mytloc); 

1 

// End 



// Member Function // 

time_t PROTOTYPE:;getProtCreationDaie() 

// Summary 

// 

// Returns the prototype's creation date 

// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// iime_t as a long value containing the system time 

// 

//End 



return protCreationDate; 



//End 



void PROTOTYPE/.getDefaultConfigNameO 

// Summary 

// 

// Displays the default Configuration name for this protot\pe 
// to stdout 
// 

// Parameter 

// 

// N/A 

// 

// Return value 
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// 

// N/A 

II 

II End - 



{ 

Directory *directory; 
char *name; 

if(! prot_default_config uration) 

{ 

cerr « “yi<ERROR; No configurations are contained in this prototype .>^\n” 

) 

else 

( 

CONFIGURATION *the_configuration = 
(CONFIGURATION*)prot_defauIt_configuration.Binding(this); 
name = the_configuration -> Name(); 

OC_getNameComponents(name, &directory, &name): 
cout « name « “Vi"; 

) 



char * PROTOTYPE: :getConfigName() 



// Summary 

II 

H Returns a character string pointer to an area in memory 
// containing the name of the default Configuration name 
// for this prototype. 

// 

// Parameter 

II 

H N/A 
// 

// Return value 

II 

H character string pointer 

II 

II End 

Directory *directory; 
char *name; 
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if ( ! prot_default_conf iguration) 

( 

cerr « “<ERROR: No configurations are contained in this prototype.>\n\n"; 
return NULL; 

} 

else 

( 

CONFIGURATION *the_configuraiion = 
(CONFIGURATION*)prot_default_configuraiion.Binding(this); 
name = the_configuration -> NameQ; 

OC_getNameComponents(name, &directory, &name); 
return name; 

} 

} 



CONFIGURATION *PROTOTYPE::geiConfiguration(char *confName) 

// Summar>^ 

// 

// Used by this class as a suppon function to update the default 
// configuration. 

// 

// Parameter 

// 

// confName 

II 

H configuration name to lookup the default configuration 
// for this prototype 
II 

H Return value 

II 

H Configuration pointer if successful. Null pointer if 
// failed. 

II 

//End 



{ 

CONFIGURATION *myConIPtr = (CONFIGURATION *)OC_lookup(confName); 
if (myConfPtr) 

{ 

return myConfPtr; 

} 

else 
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return (CONF1GURATION*)0; 



) 

) 

CONFIGURATION *PROTOTYPE::getDefaultConfiguration() 

// Summary 

// 

// Returns the default configuration for this prototype. 

// The last configuration worked on. 

// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// Configuration pointer if successful. Null pointer if 
// failed. 

// 

//End 



( 

CONFIGURATION *the_configuration =(CONFIGURATION *)0; 

if(!prot_default_configuration) 

{ 

return NULL; 

} 

else 

{ 

the_configuration = 

(CONFIGURATION*)prot_default_configuration.Binding(this); return the_configuration; 

} 

} 



V_OBJECT *PROTOTYPE::getVobject() 

// Summary 

// 

// This method assumes that the root versioned object (V_OBJECT) 
// has the same name as the prototype. If this is not the case 
// then this function will not work. Taking the prototype name. 
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// a thread lookup is performed and the most current V_OBJECT 
// in the thread is returned. 

// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// V_OBJECT pointer if successful. Null pointer if 
// failed. 

// 

//End 

I 

THREAD *threadPtr=(THREAD*)0: 

char *name = new char [strlen(getName())+l]; 

strcpy(name.geLNameO); 

threadPtr = (THREAD *)OC_lookup(name); 

if (threadPtr) 

1 

V_OBJECT *vobjectPtr = threadPtr->current(): 
if (vobjectPtr) 
return vobjectPtr; 
else 

I 

return NULL; 



else 

( 

return NULL; 

} 

) 



// end functions 
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// File Header 

// : 

//filename : queue.h 

//Date : 9/16/91 

//Author : Garry Lewis 

// ; Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date ; 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler ; Glockenspiel C++ 2. 1 

// 

// End header comments 



#ifndef_QUEUE_H 
#define _QUEUE_H 

//sees ID follows: will compile to place date/time stamp in 
// object file 

static char QUEUE_h_Sccsld[] = “@(#)queue.h 1.3Nt9/16/9r’; 

// Contents 

// 

// QUEUE 

// 

// Description 

// 

// IMPLEMENTS class QUEUE CONSTRUCTORS. 

// 

//End 

// Interface Dependencies 
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// 

#include <iostreani.hxx> 



extern “C-”{ 
#include <stdio.h> 
#include <string.h> 
} 



// 

//End Interface Dependencies 

// Description - — 

// 

// Defines the slink, slist, slist_iterator, 

// treenodejinkedlist, and treenode_queue classes 

// 

II 

H There are no ontos mechanisms in these classes. The primary 
// purpose of these classes is to provide the support structures 
// of linked_lists and queues in order to process the CAPS 
// PROTOTYPE subdirectory. 

II 

H As a subdirectory is read, each file is analzed to determine 
// whether it is an operator/type. If found to belong to 
// an operator which might version, the operator and operator 
// information is placed into a multi-way tree parrallelling the 
// decomposition of an operator in the CAPS system. The 
// TREENODES are then compared against operator structures in 
// the Ontos Database in other programs documented elsewhere. 

II 

H These structures are simple in nature and can be found in 
// ^tny good C++ textbook. These panicular examples came from 
// Bjame Stroustrup’s C++ Programming Language textbook (pg 203). 
// Please refer to the textbook for further explanation of the 
// data structures and how they are manipulated. 

// 

//End 

class TREENODE: 
class slist; 
class slistjterator; 

class slink ( 
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friend class slisU 
friend class slistjteralor; 

private: 
slink* next; 

TREENODE * e; 
slink(TREENODE * a, slink* p); 

}; 



class slist { 

friend class slist_iterator; 
private: 

slink* last; // last-> next is head of list 

public: 

slist(); // { last = NULL:) 

slist(TREENODE * a): 

int insert(TREENODE * a); // add at head of list 

int append(TREENODE * a): // add at tail of list 

TREENODE * getQ; // return and remove head of list 

void clearO; // remove all links 

int emptyO; // returns 1 if list is empty 

'-'SlistO; // ( clearQ: } 

}; 



class slist_iterator( 

private: 
slink* ce; 
slist* cs; 

public: 

slist Jterator(slist& s); 
TREENODE * operator()(); 

}; 



class TREENODEJinkedlist : public slist 

{ 

public: 

TREENODE^UnkedlistO; 
int member(char *name); 

}; 
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class TREENODE_queue : private slist 

( 

public: 

TREENODE_queue()| } 

void put(TREENODE ♦ a) | ^pend(a); } 

slist: :empty; 

slist::get; 

I; 



#endif // QUEUE Class header 



// File Header 

// : 

//filename : queue.cxx 

//.sees ID : 1.3 

//Jlelease No....: 1 

//.Date : 9/16/91 

//.Author : Garry Lewis 

// : Drew Dwyer 

//.eompiler : Glockenspiel G++ 2.1 

// : 

// End header comments 

// sees ID follows; will compile to place date/time stamp in 
// object file 

static char QUEUE_cxx_SccsIdD = "@(#)queue.cxx 1.3^9/16/91"; 

// Gontents 

II 

H QUEUE 
II 

H Description 

II 

H IMPLEMENTS class QUEUE GONSTRUGTORS. 

II 

//End 

// Interface Dependencies 

II 

//TURN ON TRAGE-DEBUG 
#define DEBUG 
#include “debug. h" 



#ifndef_QUEUE_H 
#include "queue.h” 

#endif 

II 

// End Interface Dependencies 

//. X X X X X 

// these are the implementation methods of classes 
// slink, slist, slist_iterator, and TREENODE_linkedlist 
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//. X X X X X 

//. X X X X X 

// 

// slink methods 

// 

// X X- X-- X X 

slink; ;slink(TREENODE * a. slink* p) 



{ 

e = a; 
next = p; 

1 



// X X X X X 

// 

// slist methods 

// 

// X X X X X 

slist::slist() 



i 

last = NULL: 

1 



slist: :slist(TREENODE * a) 



last = new slink(a,NULL): 
last -> next = last; 



int slist:;insen(TREENODE * a) 

{ 

if (last) 

last->next = new slink(a, last->next); 
else { 

last = new slink(a,NULL); 
last -> next = last: 

I 

return 0; 

1 
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int slist::append(TREENODE * a) 



I 

if (last) 

last = last -> next = new slink(a, last->next); 
else 
{ 

last = new slink(aJWLL); 
last -> next = last; 

) 

return 0; 

) 



TREENODE * slist::get() 

{ 

// improve the following line for better error detection 
if (last = NULL) cout « “get from empty slistVi”; 
slink* f = last-> next; 

TREENODE * r = f->e; 
if (f = last) last = NULL; 
else last ->next = f->next; 
delete f; 
return r; 

) 



void slist::clear() 

1 

slink* 1 = last; 

if ( 1 == NULL ) return; 

do 



slink* U = 1; 

1 = l-> next; 
delete 11; 

) while (1 != last); 



int slist::empty() 

{ 

if (last = NULL) return 1; 
else return 0; 

) 
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slist:;-slist() 



( 

clearO; 

} 



//. X X X 

// 

// slist iterator methods 

// 

//. X X- X 

slist_iterator::slist_iterator(slist& s) 

( 

cs = &s; 
ce = cs -> last; 

} 

TREENODE *slist_iterator.:operator(){) 

( 

TREENODE * ret = ce ? (ce = ce -> next) -> e : NULL; 
if ( ce == cs ->last) ce = NULL; 
return ret; 



//- X X X X 

// 

// TREENODE_linkedlist methods 

// 

//- X X X X 

TElEENODE_linkedlist:;TREENODE_Unkedlist() 

I 

1 





int TREENODE_linkedlist::member(char *name) 

I 

char *temp = name; 
return 1; 

) 
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// File Header 

// : 

//filename : texl_objecth 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-h- 2.1 

II 

H End header comments 



#ifndef _TEXT_OB JECT_H 
#define _TEXT_OBJECT_H 

// sees ID follows: will compile to place date/time stamp in object file 

static char text_object_h_SccsId[] = “@(#)text_object.h 1.3\t9/16/9r'; 

// Contents 

II 

H TEXT_OBJECT 

II 

// Description 

II 

H Defines class TEXT_OBJECT. 

II 

//End 

// Interface Dependencies 

// secs ID follows: will compile to place date/time stamp in object file 
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// Interface Dependencies 



#include <ObjecLh> 

#include <stream.hxx> 

// End Interface Dependencies 



class TEXT_OBJECT : public Object 

{ 

private: 

char *the_flle_najne; 
char *the_text; 
public: 

TEXT_OBJECT(APL *); 
TEXT.OBJECTO; 

void Destroy(Boolean aboned=FALSE); 
Type *getDirectType(); 
void append(char *, ifstreajn&); 
void append(char *); 
void append(ifstream&); 
void text(ostreain&); // standard output 
Boolean rebuildTextFile(char^); 
void displayFileNameO; 
char *getFileName(); 
char *text(); 
void resetTheTextO; 

-TEXT^OBJECTO { Destroy(FALSE); 1 

}; 



// Description 

// 

// Defines a TEXT_OBJECT class. The class TEXT_OBJECT is a derived 
// class of Object, 

II 

//Constructor 

II 

//TEXT_OBJECT- APL 

II 

H ONTOS required constructor 

// 

//TEXT.OBJECT 
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// 

// Creates a new instance of TEXT_OBJECT 

// 

// Public Members 

// 

// Destroy 

// 

// ONTOS required method. 

// 

// getDirectType 

// 

// ONTOS rquired method used to return the class Type. 

// 

// append 

// 

// Reads in a text file. 

// 

// append 

// 

//Read in a string append to existing string in log fashion. 

// 

// text 

// 

// Send the text contents to standard output. 

// 

// rebuildTextFile 

// 

// Write the contents of a text object to a file. 

// 

// displayFileName 

// 

// Send the file name to standard output. 

// 

// getFileName 

// 

// Return a pointer the file name contained in the text object. 

// 

// text 

// 

// Returns a pointer to the text contained in the text object 

II 

// resetTheText 

II 

H Set the text field to a empty string. 
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// 

// -TEXT_OBJECT 

// 

// class destructor. 

// 

// End Description - 



#endif //_TEXT_OB JECT.H 



// File Header 

// : 

//filename : text_objecLcxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

//Compiler : Glockenspiel C-h- 2.1 

// 

// End header comments 



// sees ID follows: will compile to place date/time stamp 
// in object file 

static char composite_cxx_SccsId[] = “@(#)text_object.cxx 1.3\t9/16/9r': 

// Contents 

// 

// TEXT_OBJECT::TEXT_OBJECT Ontos Constructor 

// TEXT_OBJECT::TEXT_OBJECT 

// TEXT_OBJECT::Destroy 

// TEXT_OBJECT::getDirectType 

// TEXT_OBJECT::append 

// TEXT_OBJECT::append 

// TEXT_OBJECT::append 

// TEXT^OBJECT::text 

// TEXT_OBJECT::rebuildTextFile 

// TEXT_OBJECT::displayFileName 

// TEXT^OBJECT::getFileName 
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// TEXT^OBIECT::texl 
// TEXT_OBJECT::resetTheText 
// 

// Description 

II 

H Implementation of class TEXT_OBJECT member functions. 

// 

//End 

// Interface Dependencies 

// TURN ON TRACE-DEBUG 
#define DEBUG 
#include “debug.h” 

#include “My_Siring.h" 

#include <strstream.hxx> 

#include <stream.hxx> 

#include <fstream.hxx> 

#ifndef _TEXT_OB JECT.H 
#include “text_object.h" 

#endif 

#ifndef_TRACER_H 
#include “tracer.h" 

#endif 

#ifndef _DDBDEFINES_H 
#include ‘‘ddbdefines.h" 

#endif 



extern 



#include <stdio.h> 

#include <sys/time.h> 

#include <sys/types.h> 

#include <stdlib.h> 

#include <strings.h> 

} 

//End 

extern Type ’*'TEXT_OBJECT_OType; 
extern char *dirNamePtr; 
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TEXT_OBJECT::TEXT_OBJECT(APL *theAPL) : Object(theAPL) 



// Summary 

// 

// Ontos Required Constructor 

// 

// Return value 

// 

// A TEXT_OBJECT object 

II 

//End 

{ 

I: 

TEXT_OB JECT; :TEXT_OBJECT() 

// Summary 

II 

H Constructor 

// 

// Return value 

II 

H A TEXT.OBJECT object 

// 

// the_file_name and the_text attributes are initialized to NULL; 
//End 



the_text = (char *)My_String(‘"‘): 
the_file_name = (char *)My_String('“‘); 
putObjectO; 

}; 

void TEXT_OBJECT::Destroy(Boolean aborted) 

// Summary 

// 

// Constructor 

// 

// Return value 

// 
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// A TEXT_OBJECT object 

// 

// the_file_najne and the_text attributes are initialized to NULL; 
//End - 

1 

Lf(the_file_name); 
delete the_file_nanie; 
delete thejext; 
if(aborted) 

{ 

Object:;Destroy(aborted); 

1 

}; 

Type *TEXT_OBJECT::getDirectT>'pe() 

// Summary 

// 

// Ontos required method which returns the type of this object. 

// 

// Parameter 

// 

// N/A 

// 

//Return Value 

// 

// the type of this object. TEXT_OBJECT. 

// 

//End 

{ 

return TEXT_OBJECT_OType; 



void TEXT_OBJECT::append(char ‘filename. ifstream& input_file) 

// Summary 

// 

// tqipend a file as a text object 

// 

// Parameter 

// 

// filename 

// 

// character string * containing the name of the file which 
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// is read into a text_object. 

// 

// input_file 

// 

// file handle of input file 

// 

//Return Value 

// 

// stores the file as a text_object in the database 
//End 



I 

TRACER(“TEXT_OBJECT;:append(2 params)’*); 

the_file_name = (char *)(My_String(filename)); 
TRACE(the_file_name); 

ostrstream buf; 
char ch; 

while (buf && input_file.get(ch)) 

{ 

buf.put(ch): 

) 

buf.put('V)’); 
the_text = buf.strO; 
putObjectO; 

); 



void TEXT_OBJECT::append(char *instring) 

// Summary 

// 

// append a character string as a text object, stores the character 
// string as a text_object in the database 
// 

// Parameter 

// 

// instring 

// 

// character string * containing the description to be added as 
// a text_object. 

// 

// Return Value 

// 



215 



// N/A 

// 

//End - 



{ 

TRACER(“TEXT_OBJECT::append(l param-char*)’’); 
time_t mytloc=0; 
time_t theTime; 

theTime = time(mytloc); 

My_String Temp_Text(My_StringC^n") + My_String(ctime(&theTime)) 
+ My_St^ingC^n") + My_Siring(instring) + My_StringCVi”)); 

lhe_text = (char *)(My_String(the_text) + Temp_Text); 

putObjectO; 

}; 



void TEXT_OBJECT::append(ifstreain& inpui_file) 

//Summary 

// 

// append a file as a text object, stores the file as a 
// text_object in the database 
// 

// Parameter 

II 

H input_file 

II 

H file handle of input file 

II 

H Return Value 

// 

// N/A 

// 

H End 

{ 

TRACER(‘‘TEXT_OBJECT::append(l param input^file)”); 
time_l mytloc=0; 
time_t theTime = 0; 

ostrstream buf; 
char ch; 
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while (buf && input_file.get(ch)) 



{ 

buf.put(ch): 

) 

buf-puK'^O’); 

theTime = time(mytloc); 

My_String Temp_Text(My_String(‘*vn”) + My_String(ctime(& theTime)) 
+ My_String("Nn") + My_String(buf.str()) + My_St^ing('^n”)); 
the_text = (char *)(My_String(the_text) + Temp_Text); 

putObjectO; 

1 

void TEXT_OBJECT::text(ostream& outstream) 

// Summary 

// 

// output the text_object as a file, dumps the text_object to 
// the PROTOTYPE environment subdirectory 
// 

// Parameter 

// 

// outstream 

// 

// file handle of output file 

// 

//Return Value 

// 

// N/A 

// 

//End 

( 

outstream « the_text; 

); 



Boolean TEXT_OBJECT:;rebuildTextFile(char *fileMode) 

// Summary 

// 

// output the text_object as a file in “r” - read only or “w” read 
// and write mode (refer to Unix system manual), dumps the 
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// text_object to the PROTOTYPE environment subdirectory 

// 

// Parameter 

// 

// fileMode 

// 

// “r” - read only, "w" read/write. 

// 

//Return Value 

// 

// Boolean SUCCESS or FAILURE - refers to success of 
// rebuilding file on the disk. 

// 

//End 

{ 

TRACERC‘TEXT_OBJECT::rebuildTextFile"); 
ofstream oFile; 

My_String My_Paih - My_String(dirNamePtr) + My^StringCT') 
+ My_String(the_file_name); 
char *mypath = (char*)My_Path; 

TRACE(mypath): 

if (strcmp(fileMode, “w") = 0 II strcmp(fileMode, “W") == 0) 

{ 

oFile.open(mypaihaos::noreplace); 

if(!oFile) 

{ 

cerr « “FILE “ « ihe_file_name « “ already exisis.Xn" 

« “Do you want to overwrite the file? Y or N : 
char answer; 
cin » answer; 

if (answer == ‘ Y’ II answer = ‘y ) 

{ 

oFiie.open(mypalh,ios::out); 
oFile « the_text ; 
oFile.closeO; 
return SUCCESS; 



else 



return FAILED; 

} 
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else 



{ 

oFile « the_text ; 
oFile.closeO; 

} 

} 

else 

{ 

if (the_text) 
cout « the_text; 



return SUCCESS; 



void TEXT_OBJECT;:displayFileName() 

// Summary 

// 

// Displays the text_object filename to stdout. 

// 

// Parameter 

// 

// N/A 

// 

// Return Value 

// 

// N/A 

// 

//End 

{ 

cout « the_file_name « “\n”; 

) 

char *TEXT_OBJECT::getFileName() 

// Summary 

// 

// Returns the attribute containing the name of the file 
// as it was stored on the disk. 

// 

// Parameter 

// 

// N/A 
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// 

// Return Value 

// 

// character string containing the file name of the object 

// 

//End 

{ 

return the_file_name; 

} 



char *TEXT_OBJECT;;text() 

// Summary 

// 

// return the contents of the_text 

// 

// Parameter 

// 

// N/A 

// 

// Return Value 

// 

// character string pointer with the text in the text_object. 

// 

//End 

{ 

return thejext; 



void TEXT_OBJECT::resetTheTextO 

//Summary 

// 

// Reinitialize the_text attribute to a blank character. 

// 

// Parameter 

// 

// N/A 

// 

// Return Value 

// 

// N/A 

// 

// End 
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strcpy(the_text, 



221 



// File Header 

// : 

//J^ilename : thread.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*1 

I I Compiler : Glockenspiel C++ 2. 1 

// 

// End header comments 



#ifndef_THREAD_H 
#define _THREAD_H 

// sees ID follows: will compile to place date/time stamp in 
//object file 

static char thread_h_SccsId[] = “(2)(#)ihread.h L3\t9/16/9r'; 

// Contents 

// 

//THREAD 

// 

// Description 

// 

// Defines class THREAD. 

II 

//End 

// Interface Dependencies 
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#include <Object.h> 

#include <Dictionary.h> 

#include <Reference.h> 

#include “ReferenceMacros.h” 

#include <stream.hxx> 

class V_OBJECT; 

//End Interface Dependencies 

TypeCheckReference(VOLisiReference, Reference, Dictionary); 

class THREAD : public Object 

{ 

private: 

int current_version; // most recent rev. 
int NumberOfVersions; 
int fromVariation; 
int fromVersion: 

VOListReference the_list: 

public: 

THREAD(APL *theAPL); 

THREAD(char *id); 

virtual void Destroy(Boolean aborted=FALSE); 
virtual Type *getDirectTypeO; 
int getCurrentVersionNumO; 

V_OBJECT *current(); 

V^OBJECT *version(int version^id); 
void add_object(V_OBJECT *new_object); 
void display Thread VersionsO; 
void displayThreadContentsO; 

void ujxiateNumberOfVersions(int); 
int getNumberOfVersionsO; 
int previousVersionO; 
int previousVariationQ; 
void setPreviousVersion(int); 
void setPreviousVariation(im); 

}; 



char *buildThreadName(char*, int); 
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// E>escription 

// 

// Defines a THREAD class. The class COMPONENT is a derived class 
// of Object (i.e. It is a persistent class). A thread may 
// contain multiple versions of an COMPONENT, composite or 
// configurations. 

// 

// Constructor 

// 

//Thread- APL 

// 

// ONTOS required constructor. 

// 

// Thread 

// 

// Constructs a thread with the given name. 

// 

// Public Members 

// 

// Destroy 

// 

// Used in lieu of a class destructor. 

// 

// getDirectTyqje 

// 

// ONTOS required method to return the class type. 

// 

// getCurrentVersionNum 

// 

// Returns the version number of the vobject last add to the thread. 

// 

//current 

// 

// Returns a pointer to the current vobject in the thread. 

// 

// version 

// 

// Returns a pointer to a user designated version of a vobject. 

// 

// add_Object 

// 

// inserts a vobject into the thread. 

// 
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// display ThreadVersions 

// 

// List the version numbers of vobjects contained in the thread. 

// 

// displayThreadContents 

// 

// Displays the version number and description of each vobject in the thread. 

// 

//End 

#endif//_THREAD_H 
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// File Header 

// : 

//filename : ihread.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

I I Compiler : Glockenspiel C-m- 2.1 

// 

// End header comments 



// sees ID follows: will compile to place date/time stamp in object file 

static char thread_cxx_SccsIdQ = “@(#)thread.cxx 1.3\t9/16/9r'; 

// Contents 

II 

H THREAD::THREAD ONTOS constructor 

// THREAD::THREAD new instance constructor 

// THREAD::Destroy 

// THREAD::getDirectType 

// THREAD::getCurrentVersionNum 

// THREAD::cuirent 

// THREAD::version 

// THREAD: :add_object 

// THREAD::displayThreadVersions 

// THREAD::displayThreadContents 

II 

// Description 

II 



226 



// Implementation of class THREAD member functions. 

II 

//End 

// TURN ON TRACE-DEBUG 
#define DEBUG 
#include “debug.h” 

#include <strstream.hxx> 

tinclude <GlobalEntities.h> 
tinclude <stream.hxx> 

#ifndef_THREAD_H 
tinclude “thread.h” 
tendif 

tifndef _VERSIONED_OBJECT_H 
tinclude “versioned_object.h” 
tendif 

extern Type *THREAD_OType; 
extern Type *V_OBJECT_OType; 

THREAD::THREAD(APL *theAPL): (theAPL) 

( 

I: 



THREAD: :THREAD(char *id): (id) 

// Summary 

II 

H Constructs a persistent THREAD object. A thread contains 
// a list of V_OBJECTS (objects which version), and maintains 
// the most current version from that list of versioned 
// objects. 

II 

// A thread is stored in the ONTOS database and is given 
// visibility. Therefore, only one operator may generate any 
// given thread. 

II 

H It is expected that Variations will inherit from threads 
// with two distinctive bits of information; 

II 
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// the thread from which it spawned - 

// the version number from which it originated 

// 

// Parameter 

// 

// id 

// 

// passed to the ONTOS database and gives persistence and 
// ONTOS visibility to that object 
// 

//Return Value 

// 

// a persistent THREAD in the ONTOS database 

// 

// End 



TRACER(“THREAD:;THREAD - char* “); 
initDirectType(THREAD_OType); 
current_version = 0: 

NumbeiOfV ersions = 0; 
ffomVersion = 0; 
from Variation = 0: 

Dictionary *new_list=new Dictionary(OC_integer, 
V_OBJECT_OType. 
TRUEEALSE): 
new_list ->putObject(); 
the_list.Reset(new_list, this); 
putObjectO; 

}: 

void THREAD::Destroy(Boolean aborted) 

{ 

TRACER(“THREAD:;Destroy”): 

Destroy(aborted); 

}: 



Type *THREAD::getDiTectType() 

//Summary 

// 

// returns the ONTOS Type for the prototype class. 

// 

// Return value 
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// 

// A pointer to an ONTOS Type. 

// 

//End 



{ 

TRACER(“THRE AD : : getDirectType”); 
return THREAD_OType; 

); 



int THREAD; :getCurrentVersionNum() 

//Summary 

II 

H returns the current version number in the thread of 
// versioned objects 
// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// An integer value representing the current version of the 
// operator/type (as deftned by CAPS) 

// 

//End 

I 

TRACER(“THREAD::getCurrentVersionNum”); 
return current_version; 

I 



int THREAD: :previousVariationO 

{ 

TRACER(“THREAD::previousVariation”); 
return ffomVariation; 

I 



int THREAD; :previousVersionO 

{ 

TRACER(“THREAD::previousVersion”); 
return fromVersion; 
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void THREAD::selPreviousVersion(int ParentVer) 

{ 

TRACER(“THREAD::setPreviousVersion”); 
fromVersion = ParentVer; 

} 



void THREAD;:setPreviousVariation(int ParentVar) 

{ 

TRACER(“THREAD::setPreviousVariation”); 
fromVariation = ParentVar, 

} 

yy*****4( ****************************************************** ********** 

void THREAD::updateNumberOfVersions(int VerNumber) 

// Summary 

// 

// End 



{ 

TRACERC’THRE AD: : updateNumberOfVersions''); 
NumberOfVersions = VerNumber; 

} 



int THREAD::getNumberOfVersions() 

// Summary 

// 

// 

//End 

{ 

TRACER(“THREAD;;getNumberOfVersions”); 
return NumberOfVersions; 

} 



char* buildThreadName(char *threadName, int variation) 

{ 

TRACER(“buildThreadName”); 
if (variation = 0) 
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return threadName; 



} 

else 

{ 

int buffsize = strlen(threadName) + 5; 

char *p = new char[buffsize]; 

ostrstream ost(p,buffsize); 

ost « threadName « « variation; 

osLput(‘X)’); 

return p; 

I 



V_OBJECT ‘THREAD; rcurrentO 

// Summary 

II 

H returns the current versioned object in the thread. 

II 

// Parameter 

II 

H N/A 
II 

// Return value 

II 

H A V_OBJECT pointer 

// 

//End 

{ 

TRACER(“THREAD:;curTent”); 

Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 

V_OBJECT ‘mytempvo = (V_OBJECT*)(Endty*)(*temp_list)[current_version]; 
if (mytempvo) 

{ 

TRACE(“mytempvo not NULL”); 

) 

return mytempvo; 
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V_OBJECT *THREAD;:version(int the_version) 

//Summary 

// 

// returns the desired version in the thread of versioned 
// objects 
// 

// Parameter 

// 

// N/A 

// 

// Return value 

// 

// A V_OBJECT pointer 

// 

//End 

{ 

TRACER(“THREAD:;version’); 

Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 

V_OBJECT *mytempvo = (V_OBJECT*)(Entity*)(*temp_list)[the_version]; 
if (mytempvo) TRACE(“mytempvo not NULL”); 
return mytempvo; 



void THREAD: :add_object(V_OBJECT *new_object) 

// Summary 

// 

// adds a versioned_obJect to the thread, and updates the 
// current_version attribute to reflect the newer version 
// 

// Parameter 

// 

// new_vobject 

// 

// V_OBJECT pointer 

// 
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// Return Value 

// 

// N/A 

// 

//End 



{ 

TRACER(“THREAD::add_object”); 

if(!this) 

i 

cerr « “<ERROR: cannot attach a v_object to a null THREAD>\n” 
return; 

1 

if(!new_object) 

{ 

cerr « "<ERROR: cannot insert a null v_object into a thread>\n"; 
return; 

) 

else 

i 

current_version = current_version + 1; 

Dictionary *temp_list = (Dictionary*)the_list.Binding(this); 
temp_list -> Insert(current_version.(Entity *)new_object); 
temp_list -> putObjectO; 
putObjectQ; 

) 

1 ; 



void THREAD::displayThreadVersions() 

// Summary 

// 

// Display the versions within a thread to stdout 

// 

// Parameter 

// 

// N/A 

// 

//Return Value 

// 

// N/A 

// 

//End 
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I 

TRACER(“THREAD::displayThreadVersions”); 
Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 

Diclionarylterator next(temp_list); 

while(next.moreDataO) 

{ 

V_OBJECT *temp=(V_OBJECT *)(Entity *)nextO: 
temp->di splay VariaiionNumber(); 
temp-xii splay VersionNumberO; 

}: 

I; 



void THREAD;:displayThreadContents() 

( 



// Summary 

// 

// Displays the version and description of each versioned 
/ object of a thread. 

// 

// NOT USED in current implementation of Design Database. 

// 

// Parameter 

// 

// N/A 

// 

// Return Value 

// 

// N/A 

// 

//End 

TRACER(“THREAD::displayThreadContents”): 

Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 

Dictionarylterator next(temp_list); 

whUe(next.moreDataO) 

{ 

V.OBJECT *temp=(V_OBJECT *)(Entity *)nextQ; 
temp->display VersionNumberO; 
cout « “Vi": 
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temp->geiDescriptionO; 
cout « “Vi”; 



// File Header 

// : 

//JFilename ; tree.h 

//Date : 9/16/91 

// Author : Garr>^ Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Ever>^ function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

// Compiler : Glockenspiel C-h- 2. 1 

// 

// End header comments 



#ifndef_TREE_H 
#define TREE_H 

// sees ID follow's: will compile to place date/time stamp in 
//object file 

static char tree_h_SccsId[] = “@{#)iree.h 1.3\t9/16/9r'; 

// Contents 

// 

// TREE HEADER 

II 

H Description 

// 

// Defines class TREE. 

II 

II End - - 

// Interface Dependencies 
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#ifndef _TREENODE_H 
#include "treenode.h” 

#endif 

// End Interface Dependencies 

class TREE 

{ 

private; 

char *tree_name; 

TREENODE * theTreeRootNode; 
public: 

TREE(TREENODE *.char *); // input list and resulting rootnode 
void build_tree(TREENODE *.TREENODE_linkedlist); 
TREENODE *find_treenode(TREENODE_linkedlist, char *); 

): 



//Description 

// 

// Defines the TREE class. 

// 

// Constructor 

// 

// Constructs a multiway tree from a linked list of nodes 
// identified as operators from reading the subdirectory in 
// TREENODE class. In this tree is one unique TREENODE - 
// the “root". Once the root is identified, reference to 
// the tree can be passed to other classes who can then deal 
// individually with nodes in that tree through the TREENODE 
// class. 

// 

// TREE 

// 

// constructs the tree given a TREENODE object and a character 
// string pointer to the root operator. 

// 

// Public Members 

// 

// build_tree 

// 

// takes in the root TREENODE and a linked list of other 
// generic operator nodes and builds the multiway tree using 
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// pointers and lists of children nodes. 

// 

// find_treenode 

// 

// given a character string of a TREENODE and a linked list of 
// TREENODES. search the linked list and return a TREENODE 
// pointer on a match. Return a NULL pointer if fails. 

// 

//End 

#endif //_TREE_H 



238 



// File Header 

// : 

//.Filename : tree.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

// Compiler : Glockenspiel C-h- 2.1 

II 

H End header comments 



// sees ID follows: will compile to place date/lime stamp in 
//object file 

static char tree_cxx_SccsId[] = “@(#)tree.cxx 1.3Nt9/ 16/91"; 

// Contents 

II 

H TREE::TREE 
// TREE::build_tree 
// TREE::find_treenode 
II 

// Description 

II 

H IMPLEMENTS class TREE CONSTRUCTORS. 

II 

II End 

// Interface Dependencies 
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// TURN ON TRACE-DEBUG 
#define DEBUG 
#include “debug. h" 



#iiiclude <Daiabase.h> 
#include <stream.hxx> 



extern “C-” 



#include <stddef.h> 

#include <sidlib.h> 

#include <sidio.h> 

#include <string.h> 

#include <direni.h> 

#include <sys/stai.h> 

#include <iime.h> 

} 

#ifndef _TREE_H 
#include “tree.h" 

#endif 

#ifndef_QUEUT_H 
#include “queue.h" 

#endif 

#ifndef _NODESUPPORT_H 
#include “nodesuppon.h" 

#endif 

// End Interface Dependencies 

TREE::TREE(TREENODE *future_rootxhar *treename) 

// Summary 

II 

H Constructor 

II 

H Parameter 

II 

H future_root 

II 

H TREENODE pointer containing the future root of the multiway 
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tree 



// 

// 

// treename 

// 

// character string - the same name as the root operator 

// 

//Return Value 

// 

// A constnited multiway tree reflecting the nodes which 
// exist in the subdirectory and which will be checked into 
// the design database 
// 

//End 



{ 

tree_name = new char [strlen(treename)+l]; 
strcpy(tree_name,treename); 
theTreeRootNode = future_root; 

) 



TREENODE *TREE::rmd_.treenode(TREENODE_linkedlist list_to_search, 
char *node_name) 



// Summary 

// 

// find_treenode 

// 

// Parameter 

// 

// list_to_search 

// 

// a linked list of TREENODES 

// 

// node_name 

// 

// the operator/type to search for (i.e. - the name of the 
// operators filename MINUS the .ps, .graph, .imp.psdl, 
// .spec.psdl, .a extension 
// 

// Return Value 

// 

// TREENODE if found - NULL pointer if not found. 

// 

//End 
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{ 

slistjterator list_iterator(listjo_search); 
TREENODE *tnode; 
while (tnode=Usl_iterator()) 
if (strcmp(tnode->getname()j»ode_name)=0) 
return mode; 
return NULL; 



void TREE::build_tree(TR£ENODE *root_node,TREENODE_linkecUist search_list) 

// Summary 

// 

// Builds a multiway tree containing the nodes in the directory 
// and information required to determine whether a new version 
// of the node must be created in the ONTOS Design Database. 

// 

// Parameter 

// 

// root_node 

// 

// the unique TREENODE which is the root of this multiway tree 

// 

// search_list 

// 

// a list of operators in the subdirectory pointed to b>- the 
// environment variable PROTOTYPE 
// 

//Return Value 

// 

// N/A 

// 

//End 



1 

TREENODE * nodeptr; 

TREENODE * temp_TREENODE_ptr; 
TREENODE * new_TREENODE_ptr; 

// create the queue inorder to consmjct the tree 
TREENODE_queue tree_node_queue; 
tree_node_queue.put(root_node); 
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// now the queue has the first TREENODE on it 
while (!tree_node_queue.emptyO) 

{ 

temp_TR£ENODE J3tr = iree_node_queue.get(); 

// now iterate through search_list , look for NODES whose associated 
// strings are “proper" superstrings of temp_TREENODE_ptr->operator_name 
// If they are create a TREENODE for these child nodes, 

// put the TREENODE in queue as well as in temp_TREENODE_ptr->children 
// list. 

slist Jterator OperatorPtr(search_list); 
while (nodepir=OperatorPtr()) 

{ 

if (proper_super_NODE_check(nodeptr,temp_TREENODE_ptr->getnameO)) 

// create the new TREENODE 

( 

new_TREENODE_ptr = new TREENODE(nodeptr, temp_TREENODE_ptr); 

tree_node_queue.put(new_TREENODE_pir); 

temp_TREENODE_ptr->insertChildNode(new_TREENODE_ptr); 
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// File Header 

H : 

//.Filename : ireenode.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O'Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

// Compiler : Glockenspiel C-h- 2.1 

// 

// End header comments 



#ifndef _TREENODE^H 
#define _TREENODE^H 

// sees ID follows: will compile to place date/time stamp in 
//object file 

static char treenode_h_SccsId[] = “@(#)treenode.h 1.3\t9/16/9r'; 

// Contents 

II 

H TREENODE HEADER 

II 

H Description 

// 

// Defines class TREENODE. 

// 

//End 

// Interface Dependencies 
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#ifndef QUEUE_H 

frinclude “queue.h " 

#endif 

#ifndef _VERSIONED_OBJECT_H 
#indude '‘versioned_object.h" 

#endif 

// End Interface Dependencies 

class TREENODE; 

class TREENODE 

( 

private: 

char *tree_node_name; 
char *node_name; 
long timestamp; 
int level; 

TREENODE_linkedlist ChildrenList: 
TREENODE * PareniNode; 

public: 

TREENODE(char *. TREENODE *); 
TREENODE(TREENODE *. TREENODE *); 
void updatetimestamp(long time); 
char *getname(): 

void insertChildNode(TREENODE *); 

TREENODE_linkedlist getChildrenO; 

TREENODE *getParentNodeO; 

char *get_asc_time(); 

int gedevelO; 

long get_long_time(); 

void list_subtree(); 

void cheddn_subtree(V_OBJECT *); 
V_OBJECT *checkin_node(V_OBJECT *); 

1 ; 



// Description 

// 

// TREENODE 

II 

// TREENODE 

II 
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// Constructor - Builds a treenode to be a node plus pointer 
// information for building a multiway tree. 

// 

// updatetimestamp 

// 

// used to compare the most current filestamp of the group of 
// five files in a versioned object from the disk directory 
// pointed to by the CAPS environment variable PROTOTYPE to 
// the locktime of the matching versioned object stored 
// in the Design database. 

// 

// getname 

// 

// returns the character string name of the treenode. 

// 

// insertChildNode 

// 

// used to insert a node as a child of the current treenode 

// 

// getChildren 

// 

// returns the linked list of children of this node 

// 

// getParentNode 

// 

// returns the parent of this node 

// 

// get_asc_time 

// 

// returns the ctime function for the treenode timestamp attribute 

// 

// getjevel 

// 

// returns the integer level (0 = root, 1 is removed from root 
// 1 level, etcetera 

// 

// getJong_time 

// 

// returns the timestamp from the treenode as a long that can 
// be used in a comparison in the checkin_node function 
// 

// list_subtree 

// 

// used for debugging. Lists the multiway tree 
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II 

II checkin_subtree 

II 

// after the multiway tree is built, this function launches the 
// recursion which does the bulk of the work. 

II 

// checkin_node 

II 

// the function which compares the TREENODE (as read from 
// disk) to threads in the database. If a match is found, 

// locktimes are compared to timestamp and if timestamp is 
// more recent, then a new versioned object is created for 
// the database. All version links are set up in this 
// function 

II 

// End Description 



#endif //header file 



// File Header - 

// : 

//.Filename : treenode.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

//Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
I* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*1 

H Compiler : Glockenspiel C++ 2. 1 
II 

H End header comments 
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// sees ID follows: will compile to place date/time stamp in 
// object file 

static char treenode_cxx_SccsIdG = “@(#)treenode.cxx 1.3\t9/16/9r’; 

// eontents 

// 

// TREENODE::TREENODE 
// TREENODE::TREENODE 
// TREENODE::updatetimestamp 
// TREENODE::getname 
// TREENODE::insertehildNode 
// TREENODE::getehildren 
// TREENODE::getparentNode 
// TREENODE::get_asc_time 
// TREENODE::getlevel 
// TREENODE::get_long_time 
// TREENODE::list_subiree 
// TREENODE::checkin_subtree 
// TREENODE::checkin_node 
// 

// Description 

// 

// IMPLEMENTS class TREENODE eONSTRUeTORS and methods. 

II 

//End 

// Interface Dependencies 

// TURN ON TRAeE-DEBUG 
#define DEBUG 
#include “debug. h" 

#include “My__String.h 
#include <Directory.h> 

#include <stream.hxx> 

#include <strstream.hxx> 



extern “G-” 



#include <stddef.h> 
#include <stdlib.h> 
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#include <sidio.h> 

#include <string.h> 

#include <dirent.h> 

#include <sys/stat.h> 

#include <time.h> 

#include <unistd.h> 

} 

#ifndef_THREAD_H 
#include “thread.h" 

#endif 

#ifndef _COMPONENT_H 
#include “component.h" 

#endif 

#ifndef _TEXT_OB JECT.H 
#include “text_objeci.h" 

#endif 

#ifndef _TREENODE_H 
#include “treenode.h" 

#endif 

#ifndef _DDBDEFINES_H 
#include “ddbdefines.h” 

#endif 

#ifndef _VOBJECTFUNC_H 
#include “vobjectfunc.h" 

#endif 

// End Interface Dep)endencies 

extern char *dirNannePtr; 



TREENODE::TREENODE(char *name, TREENODE* future_parent) 

{ 

tree_node_name = new char[strlen(name)+l]; 

strcpy(tree_node_name,name); 

level=0; 

timestamp = 0; 

ParentNode =future_parent; 

} 
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TREENODE::TREENODE(TREENODE *inc_data TREENODE* future_parent) 

{ 

iree_node_name = new char[slrlen(inc_data->getname())+l]; 
sircpy(iree_node_naine,inc_daia->getname()); 
if ((future_parent)!=NULL) 
le vel=future_parent->getle vel()+ 1 ; 
else 

level=l; 

timestamp = inc_data->get_long_time(); 

PareniNode = future_parent; 

} 



void TREENODE::updatetimestamp(long time) 

{ 

timestamp=time: 

} 

char *TREENODE::geiname() 

{ 

return tree_node_name: 

) 



void TREENODE::insertChildNode(TR£ENODE *new_chiJd) 

( 

ChildrenList.insen(new_child); 



TREENODE.linkedlist TREENODE::getChildren() 

{ 

return ChildrenList; 

} 



TREENODE *TREENODE::getParentNode() 

{ 

return ParentNode; 

} 

char *TREENODE::get_asc_time() 

{ 

return ctime(& timestamp); 

) 

int TREENODE::getlevel() 
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return level; 



) 

long TREENODE;;get_long_time() 

( 

return timestamp; 

} 



void TREENODE:;list_subtree() 

( 

TRACER(“TREENODE::list_subtree”); 
slistjterator ChildrenPtr(ChildrenList); 

TREENODE *tnode; 

for (;;) // recursive call inside infinite for loop 

i 

mode = ChildrenPtr(); 
if (tnode!=NULL) 

{ 

char *name=mode->getname(); 

int level = tnode->getlevel(); 

char *asctime = mode->get_asc_timeO: 

cout « level « « name « “time; “«asctime; 

tnode->list_subtree(); //preorder 

} 

else 

break; // breaks when end of list reached. 

I 



void TREENODE::checkin_subtree(V_OBJECT *new_parent) 

( 

TRACER(“TREENODE::checkin_subtree'’); 

slist_iteratorChildrenPtr(ChildrenList); 

TREENODE *tnode; 

V_OBJECT ^parent; 

THREAD *NewThreadPtr = (THREAD *X>; 

THREAD *threadPtr = (THREAD *)0; 

V_OBJECT *new_object = (V_OBJECT *)0; 

V_OBJECT *var_temp = (V_OBJECT *)0; 

V_OBJECT *original_parent = (V_OBJECT *)0; 

V.OBJECT *child_exists = (V.OBJECT *)0; 

List *children = (List *)0; 



251 



char *threadName = (char ’^)0; 



for (;;) // recursive call inside infinite for loop 

{ 

tnode = ChildrenPtrO; 

if (tnode !=NULL) 

{ 

parent = tnode->checkin_node(new_parent): 
tnode ->checkin_subtree(parent); //preorder 

} 

else 

{ 

break: // breaks when end of list reached. 

} 

} 



if (new_parent->Needs_Updating() && !new_pareni->just_created()) 

{ 

int variationNum: 

int versionNum = 1: 

threadPtr = new_parent->getThread(): 

if (new_parent -> getVersionNumber() < 

threadPtr -> getCurrentVersionNumO) 

{ 

threadName = buildThreadName(tree_node_name,l): 

THREAD *tempThread = ((THREAD *)OCJookup(lhreadName)): 

var_temp = tempThread -> version(l); 

variationNum = var^temp -> getNumberOf\^ariaiions() + 1; 

char *newThread = buildThreadName(tree_node_name,variationNuni): 

NewThreadPtr = new THREAD(newThread); 

NewThreadPtr->setPreviousVariaiion(new_parent->getVariationNumber()); 

NewThreadPtr->setPreviousVersion(new_parent->geiVersionNumberO); 

NewThreadPtr->updateNumberOrVersions( versionNum): 

NewThreadPtr->putObject(): 

new_parent->Reset_Update(): 

original_parent = new_parent->getParent(): 

var_temp-> incrementNumberOfVariationsO: 

new_object = new V_OBJECT(versionNum): 

new_object-> copyChildren(new_pareni): 

new_object-> updateVariationNumber( variationNum): 

new_object-> connect_vobjeci_io_thread(NewThreadPtr): 

new_object-> addVariationThread(NewThreadPtr, variationNum): 

var_iemp-> addVariation(new_object, variationNum): 



new_object->seiNodeName(new_parenl->gelNodeNameO): 

new_object->setParent(original_parent); 

new_objeci-> addCOMPONENTNode(new_pareni->getCOMPONENT()); 

new_objecl->reset_created(); 

new_object->Resei_Up>date(); 

if (original^parent) 

{ 

child_exists = 

originaJ_pareni->check_for_chiId(new_objecl->getNodeNaine()); 
if (child_exisis) 

{ 

originaI_parent->deleteChildNode(child_exists); 

original_parent->addChildNode(new_object); 



children = new_object->getChiJdren(); 
if (children) 

{ 

children->puiObject(): 

} 

var_temp->putObject(): 

new_objeci->pulObject(): 

NewThreadPtr->add_object(new_object): 

} 

else 

{ 

var_temp = threadPtr -> version(l); 

versionNum - new_parent->getVersionNumber() + 1; 

variationNum = new_parent->getVariationNumber{); 

new_objecl = new V_OBJECT( versionNum): 

new_objecl-> updateVariaiionNumber( variationNum); 

new_object-> connect_vobject_io_thread(threadPtr): 

new_object-> copyChildren(new_parent); 

new_object-> seiNodeName(new_parent->gelNodeName()); 

original^parent = new_parent->getParent(); 

new_object-> selParent(original_parent); 

new_objeci-> addVariationThread(threadPtr, variationNum); 

new_object-> addCOMPONENTNode(new_pareni->geiCOMPONENT()); 

new_object->reset_created(); 

new_object->Reset_UpdateO; 

child_exists = 

originaI_parent->check_for_child(new_object->getNodeName()); 
if (child_exists) 

{ 
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origin al_parent->deleteChildNode(child_exisis): 
origin aI_parent->addChildNode(new_object): 

} 

children = new_object->getChildren(); 
if (children) 

{ 

children->pulObject(): 

} 

var_temp->putObject(); 

ihreadPtr->add_object(new_object); 

new_object->putObject(); 



if (new_parent->just_createdQ) 

{ 

original_parent = new_parent->getParent(); 

if (original_parent) 

{ 

child_exists = 

original_parent->check_for_child(new_parent->geLNodeName()): 
if (child_exists) 

( 

origin al_parent->deleieChildNode(child_exists): 

} 

original_parent->addChildNode(new_parent); 

} 

new_parent->reset_created(); 
new_pareni->Resei_Updaie(); 
children = new_parent->getChildren(): 
if (children) 

1 

children->pulObject(): 

} 

new_pareni->putObject(); 

} 

} 

} 



V_OBJECT ’*‘TREENODE::checkin_node(V_OBJECT *future_parent) 
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TRACERrTREENODE::checkin_node"); 

if stream psfile; 

ifstream graphfile; 

ifstream impfile; 

ifstream specfile; 

ifstream sourcefile; 

Boolean create_new_vobject = FALSE; 

Boolean new_thread_created = FALSE; 

Boolean lockTime_timeSlamp = FALSE; 

Boolean new_spec_object = FALSE; 

Boolean new_graph_object = FALSE; 

Boolean new_imp_object = FALSE; 

Boolean new_ps_object = FALSE; 

Boolean new_source_object = FALSE; 

Boolean SPEC_FILE = FALSE; 

Boolean GRAPH_FILE = FALSE; 

Boolean IMP_FILE = FALSE; 

Boolean PS_FILE = FALSE; 

Boolean SOURCE.FILE = FALSE; 

TEXT_OBJECT * new_graphfile_object = new TEXT_OBJECT(); 
TEXT_OBJECT * new_sourcefile_object = new TEXT_OBJECT(); 
TEXT_OBJECT * new_impfile_object = new TEXT_OBJECT(); 
TEXT_OBJECT * new_psfile_object = new TEXT_OBJECT(); 
TEXT_OBJECT * new_specfile_object = new TEXT_OBJECT(); 

char *psfilename; 
char *graphfilename; 
char *impfilename; 
char * spec filename; 
char *sourcefilename; 

char *COMPONENT_psfilename; 
char *COMPONENT_graphfilename; 
char *COMPONENT_impfilename; 
char *COMPONENT_specfilename; 
char *COMPONENT_sourcefilename; 

psfilename = (char*)(My_String(dirNamePtr) + My_String(“/”) + 
My_String(tree_node_name) + My_String(“.ps’’) ); 

graphfilename = (char*)(My_String(dirNamePtr) + My_String(“D + 
My_String(tree_node_name) + My_String(“.graph”) ); 
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specfilename = (char*)(My_String(dirNainePtr) + My_String(“/") + 
My_String(tree_node_naine) + My_String(“.spec.psdl") ); 

iinpfilenajne = (char*)(My_String(dirNanriePtr) + My_StringC‘/") + 
My_String(tree_node_naine) + My_String(‘\iinp.psdl") ); 

sourcefilename = (char*)(My_String(dirNainePtr) + My_String(“D + 
My_String(tree_node_name) + My_String(‘*.a”) ); 

COMPONENT_psfilenaine = (char*)(My_String(tree_node_naine) + 
My_StringC\ps")); 

COMPONENT_graphfilenaine = (char*)(My_Slring(tree_node_nanie) + 
My_String(“.graph")); 

COMPONENT_impfiiename = (char*)(My_String(tree_node_nanie) + 
My_String(“.imp.psdl")); 

COMPONENT_ spec filename = (char*)(My_String(tree_node_name) + 
My_String(“.spec.psdr')); 

COMPONENT_sourcefilename = (chaf*')(My_String(tree_node_name) + 
My_StringC‘.a")); 

psfile.open(psfilename); 

graphfile.open(graphfilename); 

impfile.open(impfilename); 

specfile.open(specfilename); 

sourcefile.open(soiircefilename); 



THREAD *NewThreadPtr = (THREAD *)0; 
THREAD *ihreadPir = (THREAD *)0; 
V_OBJECT *vobjeciPir = (V.OBJECT *)0; 
V_OBJECT *new_vobjeci = (V_OBJECT *)0; 
V^OBJECT *var_iemp = (V^OBJECT *)0; 
V_OBJECT *SameVarPir = (V^OBJECT ♦)0; 
DDBControlData *Working_VarVerPtr; 
char ’^p = (char *)0; 
char *pp = (char *)0; 
char *oldPsText = (char *)0; 
char *oldSourceText = (char *)0: 
char *oIdSpecTexi = (char *X): 
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char *oIdImpText = (char *)0; 
char ^oldGraphText = (char *)0; 
long vobjectjocktime = 0; 
int versionNum = 1; 
int variationNum = 0; 

p = buildThreadName(tree_node_name,l ): 
if (threadPtr = ((THREAD *)OC_lookup(p))) 

{ 

char *ddbcontrolpath = new char [strlen(dirNamePir) + strIen(iree_node_name) + 13]; 
strcpy (ddbcontrolpath,dirNamePtr); 
strcat (ddbcontroIpath/VddbCtrlDaia."); 
strcat (ddbcontroIpath»tree_node_name); 

Working_VarVerPtr = geiddbControlFile(ddbcontrolpath); 

if(Working_VarVerPtr) 

{ 

var_temp = threadPtr -> version(l): 

V_OBJECT *new_var_temp = 

var_temp -> variation(Working_VarVerPir->variation); 
threadPtr = new_var_temp -> getThreadO; 
vobjectPir = threadPtr -> version(Working_VarVerPtr->version); 
char *removeConirolFile = new char[3 + sirlen(ddbcontrolpath)]; 
unlink (ddbcontrolpath); 

} 

else 

{ 

cerr « “Getting default Variation, VersionXn"; 

vobjectPtr = getDefaultVObject( threadPtr); 

cerr « “Default variation being added to variation “ 

« vobjectPtr-> getVariationNumber() 

« “ version “ « vobjectPir-> getVersionNumber() « 

) 

vobjectjocktime = vobjectPir ->geiLockTime(); // return locktime 

} 

else 

{ 

NewThreadPtr = new THRE AD(p); 
create_new_vobject = TRUE; 
new_thread_created = TRUE; 
vobjectjocktime = TRUE; 

1 



if (vobjectPtr) 
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{ 

COMPONENT *SCOMPONENTPtr; 

SCOMPONENTPtr = vobjectPtr->getCOMPONENT(); 
oldSpecText = SCOMPONENTPtr-> getTEXTPtr(SPEC_EXT); 
COMPONENT ‘SRCOMPONENTPtr. 

SRCOMPONENTPtr = vobjectPtr->getCOMPONENT(); 
oldSourceText = SRCOMPONENTPtr-> getTEXTPtr(SOURCE_EXT); 
COMPONENT ‘GCOMPONENTPtr; 

GCOMPONENTPtr = vobjectPlr->getCOMPONENT0: 
oldGraphText = GCOMPONENTPtr-> getTEXTPtr(GRAPH_EXT): 
COMPONENT ‘ICOMPONENTPtr. 

ICOMPONENTPtr = vobjectPlr->getCOMPON’ENT(); 
oldImpText = ICOMPONENTPtr-> getTEXTF*tr(IMP_EXT): 
COMPONENT ‘PCOMPONENTPtr; 

PCOMPON'ENTPtr = vobjectPtr->getCOMPONTNT(): 
oldPsText = PCOMPONTNTPtr-> getTEXTPtr(PS_EXT): 

I 



if (spec file) 

{ 

char *newText; 

SPEC.FILE = TRUE; 

new_specfUe_object->append(COMPONENT_specfiJenaine.specrile); 
newText = new_specfi]e_object->text(); 
if (loldSpecText) 

I 

new_spec_object = TRUT; 

) 

else 

1 

if (strcmp(newText, oldSpecText) == 0) 

I 

new_spec_object = FALSE; 

} 

else 



{ 

new_spec_object = TRUE; 

1 



if (sourcefile) 

( 

char *newText; 
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SOURCE.FILE = TRUE; 

new_sourcefiIe_object->append(COMPONENT_sourcefilenanie,sourcefile); 
newText = new_sourcefile_object->text(); 
if (loldSourceText) 

{ 

new_source_object = TRUE; 

} 

else 

{ 

if (strcmpfnewText, oldSourceText) = 0) 

{ 

new_source_object = FALSE; 

) 

else 

{ 

new_source_object = TRUE; 

} 

} 

I 



if (graphfile) 

{ 

char ‘newText; 

GRAPH.FILE = TRUE: 

new_graphfile_object->append(COMPONENT_graphfdename,graphfile); 
newText = new_graphfile_object->text(): 
if (loldGr^hText) 

{ 

new_graph_object = TRUE; 

} 

else 

{ 

if (strcmpfnewText, oldGraphText) == 0) 

{ 

new_graph_object = FALSE; 

} 

else 

{ 

new _graph_object = TRUE; 
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if (impfile) 



char *newText; 

IMP^FILE = TRUE; 

new_impfile_object->append(COMPONENT_impfilename 4 nipfile); 
newText = newJmprile_object->text(); 
if (loldImpText) 

{ 

new_iinp_object = TRUE; 

} 

else 

1 

if (strcmp(newText, oldImpText) == 0) 

{ 

new_imp_object = FALSE; 

} 

else 

{ 

new_iinp_object = TRU"E; 

} 

} 



if (psfile) 

i 

char *newText; 

PS_FILE = TRUE; 

new_psrile_object->append(COMPONENT_psfilename,psfile); 
newText = new_psfile_object->textO; 
if (loldPsText) 

{ 

new_ps_object = TRUE; 

} 

else 

{ 

if (strcmp(newText, oldPsText) = 0) 

{ 

new_ps_object = FALSE; 

} 

else 

( 

new_ps_object = TRUE; 

} 
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} 

if ( (new_spec_object li new_graph_object II new_imp_object II 
new_source_object II new_ps„object) && vobjectPtr) 

{ 

Boolean last_operation_wa$_checkin = vobjectPtr->get_last_operadon(); 
if (last_operation_was_checkin) 

( 

cout « “Last operation was VAA ... Preventing dupIicatesNn”; 
return vobjectPtr, 

} 

else 

{ 

if (vobjectPtr -> getVersionNumber() < 
threadPtr -> getCurrentVersionNumO) 

{ 

variationNum = var_temp -> getNumberOfVariationsO + 1; 
p = buildThreadName(tree_node_name,variationNum); 

NewThreadPtr = new THREAD(p); 

New'ThreadPir->setPreviousVariation(vobjectPtr->getVariationNuniber()): 

NewThreadPtr->seiPreviousVersion(vobjectPtr->getVersionNuniber()): 

NewThreadPtr->putObject(); 

new_thread_created = TRUE: 

create_new_vobject = TRUE; 

} 

else 

{ 

versionNum = vobjectPtr -> getVersionNumber() + 1; 
variationNum = vobjectPtr -> getVariaiionNumber(): 
create_new_vobject = TRUE; 

} 

} 

} 



if (vobjectPtr) 

{ 

vobjeciPtr->reset_created(); 

vobjeciPtr->releaseLock(); 

vobjeciPtr->resetLastOpTrue(); 

vobjectPtr->resetVisitedRag(); // Just for good measure, before pass 2 
vobjeciPtr->putObject(); 

} 
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if (create_new_vobject) 



// if compare says I need a new 



{ 

new__vobject= new V_OBJECT(versionNum); 

if (vobjectPlr) 

( 

new_vobjecl->copyChildren(vobjectPtr); 

} 

COMPONENT *new_COMPONENT=new COMPONENT(); 

if (new jhread_created) 

{ 

if (varjemp) 

{ 

var_temp-> incrementNumberOfV^ariations(); 
ini nextVariation = varjemp-> geiNumberOfVariations(): 
new_vobject-> update VariationNumber( nextVariation); 
new_vobject-> connect_vobject_to_ihread(NewThreadPtr); 
new_vobject-> addVarianonThread(NewThreadP^, nextVariation): 
var_temp-> addVariation(new_vobjeci, nextVariation): 
var_iemp->putObject(); 

NewThreadPtr->display Thread VersionsO: 

else 

{ 

ne w^_vobject-> incremenlNumberOfV ariationsO: 
ini nextVariation = new_vobject-> geLNumberOfV"ariations(); 
new_vobject-> updateVariationNumber(nextVariation); 
new_vobject-> addVariationThread(New'ThreadPtr, nextVariation); 
new_vobject-> addVariation(new_vobject, nextVariation); 
new_vobject->connect_vobject_to_thread(NewThreadPtr): 



else 

( 

new_vobject-> update VariationNumber(variationNum); 
new_vobject->connect_vobject_to_thread(threadPir); 



if(PS_FILE) 

( 

new_COMPONENT ->addTextObject(new_psfile_object); 
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if(GRAPH_FILE) 



new_COMPONENT ->addTextObject(new_graphfile_object); 

} 

if(SPEC_FILE) 

{ 

new_COMPONENT ->addTextObject(new_specfile_object); 

} 

if(IMP_FILE) 

{ 

new_COMPONENT ->addTextObject(new_impfile_object); 

} 

if(SOURCE_FILE) 

{ 

new_COMPONENT ->addTextObject(new_sourcefile_object); 

) 

new_vobject->addCOMPONENTNode(new_COMPONENT); 

if (new _thread_created) 

{ 

NewThreadPtr->updateNumberOfVersions(versionNum); 

NewThreadPtr->add_object(new_vobject); 

1 

else 

( 

threadPtr->updateNumberOfVersions(versionNum); 

threadPtr->add_object(new_vobject): 

} 



psfile.cIoseO; 

graphfile.doseO; 

impfile.closeO; 

specfile.closeO: 

sourcefile.closeO; 

unlink(psfilename): 

unlink(sourcefilenanie): 

unlink(impfilenaine): 
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unlink(specfilename); 
unlink(graphfilename); 
if (create_new_vobject) 

{ 

new_vobject“>setNodeName(geiname()); 

new_vobject->setParenl(futiire_parent); 

new_vobject->Update_ParentO; 

return new_vobject; // return new version of vobjeci as parent 

} 

else 

( 

vobjectP^->selParent(future_parent); 

return vobjectPtr; // return old version of vobject as parent 

} 

} 
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// File Header 

// : 

//Jilename : versioned_objeci.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. OXoughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

I I Compiler : Glockenspiel C-h- 2.1 

II 

H End header comments - 



#ifndef _VERSIONED_OB JECT.H 
#define _VERSIONED_OBJECT_H 

// sees ID follows: will compile to place date/time stamp in object file 

static char versioned_object_h_SccsIdD = “@(#)versioned_object.h 1.3\t9/16/9r' 

#include <Object.h> 

#include <Listh> 

#include <Dictionary.h> 

#include <Reference.h> 

#include ‘^ReferenceMacros.h" 

#include <stream.hxx> 



extern “C-” 

{ 

#include <sys/time.h> 
#include <sys/types.h> 
#include <string.h> 



265 



} 

#ifndef_THREAD_H 
#include ‘'thread.h" 

#endif 

#ifndef _COMPONENT_H 
#include “component.h" 

#endif 

#define DEFAULT^VER 1 

TypeCheckReference(VariationReference, Reference, Dictionary); 
TypeCheckReference(NewVariationThreads, Reference, Dictionary); 
TypeCheckReference(DescReference, Reference, TEXT_OBJECT); 
TypeCheckReference(COMPONENTObjReference, Reference, COMPONENT); 
TypeCheckReference(ChildVObjReference, Reference, List); 
TypeCheckReference(ThreadObjReference, Reference, THREAD); 

class V_OBJECT : public Object 

{ 

TypeCheckReference(ParentObJReference, Reference, V_OBJECT); 
private: 

int theVersionNumber; 
int theVariationNumber; 
int NumberOrVariations; 
time_t creationDate; 
time_t lockTime; 
char *node_name; 
char ^creator, 
char * worker; 

Boolean visited; // for navigation through tree structure 

Boolean last_op_checkin; // guards against double checkin 

Boolean needsUpdaiing; 

Boolean created; 

DescReference theDescriptionPtr; 

NewVariationThreads NewVariations; 

VariationReference VariationList; 

ThreadObJReference theThreadPtr, 

COMPONENTObJReference theCOMTONENTPir, 

ChildVObJReference theChildPtr, 

ParentObJReference theParentPtr; 
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public: 



V_OBJECT(APL *); 

V_OBJECT(int= DEFAULT, VER); 
void Destroy(Boolean aborted=FALSE); 

Type *getDirectType(); 

void conneci,vobject_to_thread(THREAD *); 

void seiParent(V_OBJECT *); 

void setNodeName(char *); 

char *getNodeName(); 

void getVObjNameO; 

char *getName(); 

void resetVisitedFlagO; 

void setVisitedRagO; 

Boolean getVisitedFlagO; 
void geiVObjComponenisNameO; 

void displayVariationNumberO: 
im getVariationNumberO; 
void update VariationNumber(inl); 

V_OBJECT *variation(im); 

void displayNumberOfVariaiionsO; 

int getNumberOfVariationsO; 

void incrementNumberOfV'ariationsO: 

void addVariation(V_OBJECT int); 

THREAD *getThread(); 

void addVariationThread(THREAD im); 

void copyChildren(V_OBJECT*); 

V_OBJECT *check_for_child(char *): 
Boolean Needs_Updating(); 
void set_created(): 
void reset_created(); 

Boolean jusl_crealed(); 
void Update_Parent(); 
void Reset_Update(); 

void displayVersionNumberQ; 
int getVersionNumberO; 
void dumpVObjSummaryO; 
dme_t setCreationDateQ; 
timej getCreationDateO; 
void setLockQ; 
char *getWorker(); 
char *getCreator(); 
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void setWorkerQ; 
void resetLasiOpTrueO; 
void resetLaslOpFalseO; 

Boolean get_lasi_operation(): // returns true if last op was checkin 

ini releaseLockQ; 

dme_t getLockTimeO; 

void getDescriptionO; 

void listChildrenO; 

void longlistOperalorNamesO; 

void listOperatorNamesO; 

void updaieDescription(char ifstream &); 

void addCOMPONTE>ri>lode(COMPONENT *); 

void deleteChildNode(V_OBJECT *); 

void addChildNode(V_OBJECT *): 

V_OBJECT *getParent(); 

COMPONENT *getCOMPONENT(); 
void dumps ubtree(char *); 
void releaseLockSubtreeO: 

List *gelChildren(); 

Boolean getChildPtrO: 

Boolean checkoulCOMPONENTNode(char *): 

~V_OBJECT() { Destroy(FALSE): ): 

1 ; 



// Description 

// V_OBJECT 
// V.OBJECT 
// 

// Constructors - builds a persistent object in the Onios 
// database. 

II 

H Destroy 

II 

H Required by Ontos. Every p>ersistent object must have a 
// destroy function, 

// 

// geiDirectType 

// 

// Returns an Ontos Type 

// 

// connect_vobject_to_thread 

// 

// Connects a vobjeci to a thread bearing it's name. 

II 
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// setParent 

// 

// Used to establish links (Transparent References as Ontos 
// calls them) in the Design Database reflecting the 
// decomposition of CAPS operators/types. 

// 

// setNodeName 

// 

// NodeName is maintained as a separate character string field. 

// 

// getNodeName 

// 

// get the shorter NodeName 

// 

// getVObjName 

// 

// Displays the versioned object's name to stdout 

// 

// getName 

// 

// returns the character string pointer of the Operator Name 

// 

// resetVisitedFlag 

// 

// resets visited to FALSE 

// 

// setVisitedFlag 

// 

// sets visited to TRUE 

// 

// getVisitedFlag 

// 

// returns the value of visited (Boolean) 

// 

// getVObjComponentsName 

// 

// display the different components in the Operator 

// 

// displayVersionNumber 

// 

// Display the version number of the V_OBJECT to stdout 

// 

// getVersionNumber 

// 
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// return the int versionNumber 

// 

// dumpVObjSummary 

// 

// dump predetermined attribute values to the stdoul/stderr 

// 

// setCreationDate 

// 

// gets the system time and stores it in CreationDate 

// 

// getCreationDate 

// 

// Displays the creation date as a 26 character ascii text 
// string of the date and time 
// 

// setLock 

// 

// sets the lock to the system time 

// 

// getWorker 

// 

// returns the character string containing the workers name 

// 

// getCreator 

// 

// returns the character string containing the V_OBJECT 
// creators name 
// 

// setWorker 

// 

// gets the UNIX UserPtr variable and stores the value of that 
// variable into worker 
// 

// resetLastOpTrue 

// 

// Tells the system that the last operation on that V^OBJECT 
// was a checkin. Prevents duplicate checkins from creating 
// new versioned objects on each checkin 
// 

// resetLastOpFalse 

// 

// resets the last operation immediately following checkin 

// 

// getJast_operation 
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// 

// returns a Boolean TRUE if last operation was an add 

// 

// releaseLock 

// 

// sets the lockTime back to 0 (epoch time) Sometime in 1969. 

// 

// getLockTime 

// 

// return the lockTime as a time_t (long) structure 

II 

// getDescription 

II 

// Display the V_OBJECT description (if one exists) 

II 

H listChildren 

// 

// list V_OBJECT's chilren 

// 

// longlistOperatorNames 

II 

H list V_OBJECT’s children 

II 

// listOperatorNames 

II 

// gives the explicit name of the operator (to include 
// path information from the root V_OBJECT 
II 

// updateDescription 

II 

H updates the versioned_objects description. 

II 

H addCOMPONENTNode 

// 

// adds an COMPONENT object to this V_OBJECT using the Ontos 
// binding mechanism 
II 

H deleteChildNode 

II 

// removes an operator from the children list of the 
// current V_OBJECT 
II 

H addChildNode 

II 
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// adds an operator to the children list of the V_OBJECT 

// 

// getParent 

// 

// returns the parent V_OBJECT 

// 

// getCOMPONENT 

// 

// returns an COMPONENT pointer if one is contained in this 
// V_OBJECT 
// 

// dumpSubtree 

// 

// attempts to rebuild files from versioned objects onto 
// the UNIX subdirector) referenced by the UNIX variable 
// PROTOTYPE 
// 

// releaseLockSubtree 

// 

// resets that node and every node under it to zero 
// epoch time (sometime in 1969) 

// 

// getChildren 

// 

// returns a list of the children of the current V_OBJECT 

// 

// getChildPtr 

// 

// returns a Boolean TRUE if the Cardinality of the list 
// referenced by the theChildPu- is > zero 
// 

// checkoutCOMPONENTNode 

// 

H attempts to rebuild the .ps. .graph, .imp.psdl. .spec.psdl 
// and .a files of an operator/type stored in the Design 
// Database 
// 

// End 

#endif 
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// File Header 

// : 

//JFilename : versioned_object.cxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

//Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

// Compiler : Glockenspiel C-h- 2.1 

II 

// End header comments 



// sees ID follows: will compile to place date/time stamp in object file 

static char versioned_object_cxx_SccsId[] = “@(#)versioned_object.cxx 1.3\t9/16/91" 

// Contents 

II 

H V_OBJECT::V_OBJECT 

// V_OBJECT::V_OBJECT 

// V_OBJECT::Destroy 

// V_OB JECT : : getDirec tT ype 

// V_OB JECT: :connect_vobject_to_thread 

// V_OBJECT::setParent 

// V_OBJECT::setNodeName 

// V_OB JECT : :getNodeName 

// V_OBJECT::getVObjName 

// V_OBJECT::getName 

// V_OBJECT::resetVisitedFlag 

// V_OBJECT::setVisitedFlag 

// V_OBJECT::getVisitedFlag 

// V_OBJECT::getVObjComponentsName 
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// V_OBJECT:;displayVariationNumber 
// V_OBJECT::getVariationNumber 
// V_OBJECT::updateVariationNumber 
// V_OBJECT::displayVersionNumber 
// V_OBJECT::getVersionNumber 
// V_OBJECT::dumpVObjSummary 
// V_OBJECT:;setCreationDate 
// V_OBJECT::getCreationDate 
// V_OBJECT::setLock 
// V_OBJECT::getWorker 
// V_OBJECT;:getCreator 
// V_OBJECT::setWorker 
// V_OBJECT::resetLastOpTrue 
// V_OBJECT;;resetLastOpFaIse 
// V_OBJECT::get_last_operation 
// V_OBJECT::releaseLock 
// V_OBJECT::getLockTime 
// V_OBJECT::getDescription 
// V_OBJECT::listChUdren 
// V_OBJECT:;longlistOperatorNames 
// V_OBJECT;:listOperatorNames 
// V_OBJECT::updateDescription 
// V_OBJECT::addCOMPONENTNode 
// V_OBJECT::deleteChildNode 
// V_OBJECT::addChUdNode 
H V_OBJECT::gelParent 
// V_OBJECT::getCOxMPONENT 
// V_OBJECT::dunipSublree 
// V_OBJECT:;releaseLockSubtree 
// V_OBJECT::getChildren 
// V_OBJECT;;getChUdPtr 
// V_OBJECT;:checkoutCOMPONENTNode 
// 

// Description 

// 

// methods for manipulating versioned objects 

// 

// End 

// Interface Requirements 

// 

// TURN ON TRACE-DEBUG 
#define DEBUG 
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#include “debug. h' 



#include <GlobalEntities.h> 

#include <Directory.h> 

#ifndef _VERSIONED_OB JECT^H 
#include “versioned^objecl.h” 

#endif 

#ifndef_TRACER^H 
#include “tracer.h” 

#endif 

#ifndef _DDBDEFINES_H 
#include “ddbdefines.h" 

#endif 

#ifndef _VOBJECTFUNC_H 
#include “vobjectfunc.h" 

#endif 

// Constructor // 

//End Interface Requirements 

extern Type *THREAD_OType; 
extern Type *V_OBJECT_OType; 
extern userPtr; 
extern char *dirNamePtr; 



V_OBJECT::V.OBJECT(APL *theAPL) : Object(theAPL) 

// Summary 

II 

H This is an activation constructor required by ONTOS. 

// ONTOS calls the activation constructor anytime an object 
// is brought into memory. Note the constructor passes 
// theAPL to the base class APL constructor. 

II 

H Parameter 

// 

//theAPL 

II 

H A pointer to an APL (for Activation Parameter List) a 
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// structure. 



{ 

// empty by design 

}; 



//End - 

// Constructor // 

V_OBJECT::V_OBJECT(int versionNum) 

//Summary 

// 

// Parameter 

// 

// Functional Description 

// 

1 

initDirectT>T5e(V_OBJECT_OT\'pe): 
theVariationNumber = 0; 
theVersionNumber = versionNum; 
NumberOfVariations = 0; 
creationDate = setCreationDate(); 
lockTime = 0; 
last_op_checkin = TRUE: 
visited = FALSE; 
created = TRUE; 

creator = new char [strlen(userPu‘)+l]; 

strcpy(creator,userPtr); 

worker = (char *)0; 

node_name = (char *)0; 

needsUpdating = FALSE; 

iheDescriptionPtr.initToNullO; 

iheCONIPONENTPtr.initToNullO; 

iheThreadPtr . in i tToNu 11 (); 

iheParentPlr.initToNullO; 

List *newChildList = new List(V_OBJECT_OType); 
newChildList -> puiObject(); 
theChildPtrReset(newChildList. this); 

if (!THREAD_OType) 

{ 
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THREAD^OType = (Type*)OC_lookup(‘‘THREAD”); 

I 

Dictionary *new_variation = new Diclionary(OC_integer, 

THRE AD_OType , 

TRUE, FALSE); 
new_variation ->putObject(); 
NewVariations.Reset(new_variation, this); 

Dictionary *variadonPtr = new Dictionary((Xr_integer, 

V^OBJECT_OType, 

TRUE, FALSE); 

variationPtr ->putObject(); 

VariationList.Reset(variationPtr, this); 



putObjectO; 

1 ; 



//End 



// Member Function (in lieu of destructor)// 

void V_OBJECT::Destroy (Boolean aborted) 

// Summary 

// 

// This one is semi tricky. Destroy redefined the Destroy 
// function inherited from the class CleanupObj. DestroyO 
// is used to delete CleanupObj objects and those of all its 
// derived classes. In defining any class that is directly 
// or indirecdy derived from CleanupObj, provide the 
// function Destroy(Boolean aboned) in place of a destructor 
// if there is any sp>ecial processing required when the 
// object’s memory is deallocated. 

// 

// Parameter 

// 

// aborted 

II 

H If DestroyO is called as a result of an abort, aborted 
// is set to TRUE; if it is called to delete the object for 
// other reasons, aborted is set to False. 

// 

// Functional Description 
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II 

H CleanupObj in effect provides an audit trail of the 
// creation of all stack-based instances of its derived 
// classes, so that they can be cleanly deleted in the 
// case of an abort during exception handling. Hence 
// the Destroy function. 



{ 

Object::Destroy(aborted); 

}; 



// End 

// Member Function // 

Type* V_OBJECT::getDirectType() 

{ 

return V_OBJECT_OT\pe; 



// Member Function // 

void V_OBJECT::connect_vobject_to_thread(THRE.AD *threadPtr) 

{ 

TRACER(“V_OBJECT::connect_vobject_to_thread"); 

theThreadPtr.Reset(threadPtr,this); 



void V_OBJECT::setParent(V_OBJECT ^parent) 

( 

theParentPtr.Reset(parent.this): 

} 



void V_OBJECT::setNodeName(char *tree_node_name) 

{ 

char * token = (char *)0; 

token = strrchr(tree_node_name,\'); 

if (token) 

{ 

node_name = new char[strlen(token)+l]: 
strcpy(node_name,token); // token in the subtree 

node_name-i-+; // discard period (.) 

} 

else 
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node_name = new char [strlen(tree_node_name>+l]; 
strcpy(node_name,tree_node_nanie); // must be root root. 



char *V_OBJECT::getNodeName() 

{ 

return node_name; 

} 

char * V_OBJECT::getName() 

( 

char *name; 

Directory ^directory; 



if(!this) 

{ 

cerr « "<ERROR: cannot get the name of a null V_OBJECT>\n"; 
return NULL; 

} 

if (ItheThreadPtr) 

{ 

cerr « “<ERROR: cannot display the name of a null thread>\n"; 
return NULL; 

} 

else 

{ 

THREAD *myThreadPir = (THREAD*) theThreadPtr.Binding(this); 
name = myThreadPtr -> Name(); 

OC_getNameComponents(name, &directory, &name); 
return name; 

} 



// Member Function // 

void V_OBJECT::getVObjName{) 

{ 

char *name; 

Directory *directory; 

if(!this) 
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{ 

cerr « “<ERROR: cannot get the name of a nuU V_OBJECT>\n"; 
return; 

} 

if (ItheThreadPtr) 

{ 

cerr « "<ERROR: cannot display the name of a null thread>\n"; 
return; 

) 

else 

{ 

THREAD *myThreadPtr = (THREAD*) theThreadPtr.Binding(this); 
name = myThreadPtr -> Name(); 

OC_getNameComponents(name, &director>', &name); 
cout « name « “Nn"; 

) 



// Member Function // 

void V_OBJECT;;getVObjComponentsName() 

{ if(!this) 

( 

cerr « "<ERROR; cannot get the names of a null V_OBJECT>\n"; 
return; 

I 

if (itheCOMPONENTPtr) 

{ 

cerr « “<ERROR; This v_object does not have an COMPONENT componenoV'; 
return; 

1 

else 

{ 

COMPONENT *myCOMPONENTPtr = (COMPONWT*) theCOMPONWrPtr.Binding(this); 
myCOMPONENTPtr -> getComponentNames(); 



} 

V_OBJECT *V_OBJECT::variation(ini variationNumber) 
//Summary 
// 
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// 

//End 

{ 

TRACER (“V_OBJECT:: variation"); 

Dictionary *temp_list = (Dictionary*) VariationList.Binding(this); 

V_OBJECT *mytempvo = (V_OBJECT*) (Entity*) (*temp_Ust) [variationNumber]; 
if (mytempvo) TRACE(“mytempvo not NULL”); 
return mytempvo; 

}; 

void V_OBJECT:;displayVariationNumber() 

// Summary 

// 

// This function displays the variation number of an object. 

( 

cout « theVariationNumber « “ “; 

1 ; 

int V_OBJECT::getVariationNumber() 

I 

return theVariationNumber; 

) 

void V_OBJECT:;updaleVariationNumber(int NewVariationNumber) 

// Summary 

// 

// This function updates the variation number of an object. 
theVariationNumber = NewVariationNumber; 

I; 



void V_OBJECT::displayNumberOfVariations() 

// Summary 

// 

// This function displays the number of variations of an object. 

I 

cout « NumberOfVariations « ‘^n”; 
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1; 

int V_OBJECT::getNumberOfVariations() 

( 

return NumberOfVariations; 

) 



THREAD *V_OBJECT;:getThreadO 

( 

if (theThreadPtr) 

{ 

THREAD ‘tempThread = (THREAD *) theThreadPlr.Binding(this); 
return tempThread; 



else 



THREAD *nullthread = (THREAD *)0; 
return nullthread; 

1 



void V_OBJECT:;incrementNumberOfVariations() 

// Summary 

// 

// This function updates the variation number of an object. 



NumberOfVariations = NumberOfVariations + 1; 

I: 

void V_OBJECT;:addVariation(V_OBJECT *V_ObjectPtr, int nextVariation) 

{ 

if (Ithis) 

{ 

cerr « “<ERROR: cannot set the Variation node of a null V_OBJECT\n"; 
return; 

1 

if (!V_ObjectPtr) 

( 

cerr « “<ERROR in AddVariationNn”; 
return; 

1 

Dictionar>' *VarDictionar\Ptr = (Dictionar>’*)VariationList.Binding(this); 
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VarDictionaryPtr -> Insen(nextVariation, (Entity *) V_ObjectPtr): 
VarDictionaryPtr -> putObjectO; 

} 



void V_OBJECT::addVariationThread(THREAD *NewThreadPtr, int nextThread) 

1 

if(!this) 

{ 

cerr « “<ERROR: cannot set the Variation node of a null V_OBJECT^"; 
re mm; 

I 

if (INewThreadPtr) 

{ 

cerr « “<ERROR in Add Variation Thread.Vi"; 
return; 

I 

Dictionary *ThreadDictionaryPtr = (Dictionary'*) NewVariations.Binding(this): 
ThreadDictionaryPtr -> lnsert(nextThread, (Entity *) NewThreadPtr); 
ThreadDictionaryPtr -> putObject(); 

I 



void V_OBJECT::copyChildren(V_OBJECT *child_list) 

{ 



if (!this) 

{ 

cerr « “<ERROR: can not copy children of a null V_OBJECT!>'Nn”; 
return; 

) 



List *child_copyfrom = (List *) child_list->theChildPtr.Binding(child_list); 
List *child_copyto = (List *) theChildPtr.Binding(this); 
ListlteratorChildrenPtr(child_copyfrom); 

V_OBJECT *cnode; 

while(ChildrenPtr.moreDataO) 

{ 

cnode = (V_OBJECT *) (Entity *) ChildrenPtr(); 
child_copyto->Insen(cnode); 

) 

child_copyto->putObject() ; 
return; 

I 
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V_OBJECT *V_OBJECT;:check_for_chiJd(char *child_node_naine) 

I 

V_OBJECT ‘child = (V_OBJECT *)0; 
if (!this) 

{ 

cerr « “<ERROR: no children for a null V_OBJECT!>\n”; 
return child; 

1 

List *child_check_list = (List *) theChildPtr.Binding(this); 
Listiterator ChildrenPtr(child_check_list); 
while(ChildrenPtr.moreDataO) 

{ 

child = (V_OBJECT *) (Entity *) ChUdrenPtr(); 
if (strcmp(child->getNodeName0.child_node_name) == 0) 

{ 

return child; 

} 

1 

return (V_OBJECT *)0; 



Boolean V_OBJECT;; Needs_UpdatingO 

{ 

return needsUpdating; 

1 



void V_OBJECT;;Update_Parent() 

I 

V_OBJECT ‘ParentPtr; 

ParentPtr = this->getParentO; 
for (;;) 

if(ParentPtr !=NULL) 

I 

ParentPtr->needsUpdating = TRUE; 
ParentPtr = ParentPtr->gelParent(); 

1 

else 

{ 

break; 

} 



void V_OBJECT;;Reset_Update() 

( 
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needsUpdatuig = FALSE; 



I 

Boolean V_OBJECT::just_created() 

( 

return created; 

} 

void V_OBJECT::set_created() 

I 

created = TRUE; 

) 

void V_OBJECT::reset_created() 

I 

created = FALSE; 

) 



// Member Function // 

void V_OB JECT : :display VersionNumberO 

// Summary 

// 

// This function displays the version number of an object. 

1 

cout « theVersionNumber « “\n”; 

}: 

int V_OBJECT::getVersionNumber() 

1 

return theVersionNumber; 

1 

//End 



// Member Function // 

void V_OBJECT;:dumpVObjSummary() 
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{ 

cout « ctime(&creationDate); 
cout « getCreaiorO « ‘^n”; 
if (worker) 

{ 

cout « worker « ‘^n”; 

} 

else 

cout « 

if (!lockTime==0) 
cout « ctime(&lockTime); 
else 

cout « 

getDescriptionO; 

} 



//Member Function // 

time_t V_OBJECT::setCreationDate() 

( 

time_t mytloc=0; 

time_t theTime; 

return theTime = time(mytloc); 



/Alember Function // 

void V_OBJECT::setLock() 

{ 

lockTime = setCreationDate(); 

} 

//Member function// 

char *V_OBJECT::getWorker() 

{ 

return worker; 

1 

//Member function// 



char *V_OBJECT::getCreator() 



return creator. 



1 

//Member function// 

void V_OBJECT:;setWorker() 

{ 

char *temp_worker = new char [strlen(userPtr)+l]: 

strcpy(temp_worker,userPtr); 

if (woiker) 

I 

delete worker, 

1 

//commented out on 21 may 92 MO L 
// else 

worker = new char[strlen(temp_worker)+l]; 
strcpy(worker.temp_worker); 

1 



//Member Function // 

void V_OBJECT:;resetVisitedFlag() 

{ 

visited = FALSE; 



void V_OBJECT::setVisitedFlag() 

I 

visited = TRUE; 

I 

Boolean V_OBJECT;;getVisitedFlagO 

{ 

return visited; 

1 

//Member Function // 

void V_OBJECT;;resetLastOpTrue() 

{ 

last_op_checkin = TRUE; 

1 

void V_OBJECT;:resetLastOpFalse() 
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last_op_checkin = FALSE; 



} 

//Member Function // 

Boolean V_OBJECT::get_last_operationO 

{ 

return last_op_checkin; 

} 

//Member Function // 

int V_OBJECT::releaseLockO 

( 

if (! worker) 

{ 

last_op_checkin = TRUE: 
lockTime = 0: 
return SUCCESS; 

I 

if (strcmp(userPtr,getWorker())==0) 

{ 

last_op_checkin = TRUE; 
lockTime = 0; 
delete worker, 
worker = (char *)0; 
return SUCCESS; 

} 

else 

{ 

cerr « “<ERROR: Only “ « getWorker() « May unlock this object!. ..Aborting>Nn“ 
return FAILED; 

1 



//Member Function // 

time_t V_OBJECT::getCreationDate() 

( 

return creationDate; 

} 
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// Member Function // 



time_t V_OBJECT::getLockTime() 

( 

return lodcTime; 

} 

// Member Function // 

void V_OBJECT::getDescriptionO 

// Summary 

// 

// This function displays the description of an object 

// 

{ 

if(!this) 

cout « “<ERROR: cannot get the description of a null V_OBJECT>\n“; 
return; 

} 

if (ItheDescriptionPtr) 

cerr « “<ERROR: This v_object does not have a description>\n"; 
return; 

} 

else 

{ 



TEXT_OBJECT *myTextObjectPtr = 
(TEXT_OBJECT*) theDescriptionPtr.Binding(this); 
myTextObjectPtr ->text(cout); 

} 



// Member Function // 

void V_OBJECT:;updateDescription(char *fileName, ifstream& input_file_stream) 

{ 

if(!this) 

{ 

cerr « “<ERROR: cannot update the description of a null V_OBJECT>\n”; 
return; 
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else 



{ 

if (strcmp(userPtr,getCreator())=0) 

{ 

if( ! theDesc riptionPtr) 

{ 

TEXT^OBJECT *lexiObjectPtr = new TEXT_OBJECT0; 
textObjectPtr -> append(fileName, input_file_streain): 
textObjeciPtr ->putObject(); 
lheDescriptionPtrJlesei(textObjectPtr, this); 

} 

else 

{ 

TEXT_OBJECT *textObjectPtr = 

(TEXT_OBJECT*) theDescriptionPtr.Binding(this); 
textObjectPtr -> resetTheTexiQ: 
textObjectPtr -> append(fileName, input_file_stream); 



else 

cerr « “<ERROR: only “ « getCreatorQ « “ rnay update description. Aborting. ..>\n 

1 

putObjeciO; 



// Member Function // 

void V_OBJECT::addCONlPOISEm^^ode(CONlPONENT *myCOMPONENTPtr) 

{ 

if (!ihis) 

{ 

cerr « “<ERROR: cannot set the COMPONENT node of a null V_OBJECTsn"; 
return; 

} 

if (ImyCOMPONENTPtr) 

1 

cerr « “<ERROR: cannot give to a V_OBJECT a null COMPONENT>\n”; 
return; 

1 

theCOMPONENTPtr.Reset(myCOMPONENTPtr, this); 

1 
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// Member Function // 



void V_OBJECT::deleleChildNode(V_OBJECT *myV_ObjPtr) 

{ 

List *chiId_nodes = (List *)theChildPtr.Binding(this); 

if(!this) 

{ 

cerr « "<ERROR: cannot delete the child node of a null V_OBJECTvn 
return; 

} 

if (!child_nodes) 

{ 

cerr « “<ERROR: cannot remove a NULL child>\n”; 
return; 

} 

long location =0; 

if (child_nodes->isMember(myV_ObjPtr)) 

I 

location = child_nodes->lndex(myV_ObjPtr); 
chiId_nodes->Remove(location); 

} 

I 



// Member Function // 

void V_OBJECT:;addChildNode(V_OBJECT *myV_ObjPtr) 

I 

List *child_nodes = (List *)theChildPtr.Binding(this); 

if(!this) 

( 

cerr « “<ERROR: cannot set the child node of a null V_OBJECT\n”; 
return; 

) 

if (!child_nodes) 

cerr « ''<ERROR; cannot give to a V_OBJECT a null child>Vi”; 
return; 

) 

chiId_nodes->Insert(myV_ObjPtr); 

I 

//Member Function // 



291 



V.OBJECT *V_OBJECT:;getParentO 



{ 

return (V_OBJECT *)(Entity *) thePareruPtx.Binding(this); 

) 



COMPONENT *V_OBJECT::getCOMPONENT0 
return (COMPONENT *) (Entity *) theCOMPONENTPtr.Binding(this); 

} 

void V_OBJECT::UstChildren() 



if (!this) 

{ 

cerr « ‘‘<ERROR: can not dump children of a null V_OBJECT!>\n”; 
return; 

1 

ifC.theChUdPtr) 

cerr « “<ERROR: can not print children of a null childPu'!>\n”: 
return; 

I 

else 

{ 



List *child_nodes = (List *) theChildPtr.Binding(this); 

Listiterator ChildrenPtr(child_nodes); 

V_OBJECT *cnode; 

while(Childrenfhr.moreDataO) 

{ 

cnode = (V_OBJECT *) (Entity *) ChildrenPtr(); 
cout « cnode->getNodeNameO: 

4c 4c 4c 4c * 4c 4c 4c 4c * 

// following for loop provides spacing... 

jj 4c 4c 4c 4c* 4c 4c 4c 4c 4c* 

int i=0; 

for (i=0;i<(PRINT_VERSION_L(X;ATlON-strlen(cnode->getNodeName0)):i-H-) 
cout « “ “; 

cout « cnode->gelVariationNumberO; 
cout « “ 

cout « cnode->getVersionNumber(): 



292 



cout « ‘^n”; 



) 

return; 

1 

) 



void V_OBJECT:;longlistOperatorNamesO 

{ 

TRACER(“ V_OBJECT : ilonglistOperatorNatnes"); 
if(!this) 

( 

ceiT « “<ERROR: can not dump operators of a null V_OBJECT!>\n 
return; 

} 



if(!theChildPtr) 

{ 

ceiT « “<ERROR: can not print list of a null childPtr!>\n": 
return; 

) 

else 

{ 



List *child_nodes = (List *) theChildPU'.Binding(this): 
Listiterator ChildrenPtr(child_nodes); 

V_OBJECT *cnode; 

int line_feed = 0; 

while(ChildrenPtr.moreDataO) 

{ 

TRACEfiteration in while loop”); 

cnode = (V_OBJECT *) (Entity *) ChildrenPtr(); 

// if (cnode->getChildPtr()) 

// { 

// cnode-> longlistOperatorNamesO; 

// } 

// 1-23-92 cerr « “Operator: “; 

if (line_feed) cout « ; // removes blank line from output 
TRACE(cnode->getNodeName() ); 
cout « cnode->getNodeName() ; 
line_feed+-t-; 

// following for loopprovides spacing... 
int i=0; 
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for (i=0;i<(PRINT_VERSION_LOCATION-strlen(cnode->getNodeName()));i-H-) 
cout « “ 

cout « cnode->getVariationNumber(); 
cout « “ 

cout « cnode->getVersionNuiriber(); 
cout « “ 

time_t locktime = cnode->getLockTimeO; 

} 

cout « “Vi”; 

} 



void V_OBJECT::lisiOperatorNamesO 

{ 

Boolean node_was_visited = FALSE; 
if (!this) 

{ 

cerr « ‘‘<ERROR: can not dump children of a null V_OBJECT!>\n"; 
return; 

} 

if(!theChUdPtr) 

{ 

cerr « "<ERROR: can not print children of a null childPtr!>\n"; 
return; 

} 

else 

{ 

List *child_nodes = (List *) theChildPtr.Binding(this); 

Listiterator ChildrenPtr(child_nodes); 

V_OBJECT *cnode; 
int index = 1; 

while(ChildrenPtr.moreDataO) 

{ 

cnode = (V_OBJECT *) (Entity *) ChildrenPtr(); 
node_was_visited = cnode->getVisitedRag(); 
if (cnode->getChildPtr()) 

I 

cnode-> UstOp)eratorNames(); 

} 

if (node_was_visited && index > 1) 

{ 



cnode->resetVisitedFlag(); 

cnode->putObject(); 

break; 
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else 



{ 

cnode->reseiVisiiedFlag(); 

cnode->puiObject(); 

} 

if (index =1) 
cnode->setVisitedFlagO; 

index-H-; 
char *name; 

name = cnode->getName(); 
name[strlen(name)-2] = ‘M)’; 
cout « name; 

34c ****** * 

// following for loop provides spacing... 

n *********** 

// int i=0; 

// for (i=0;i<(PRINT_VERSION_LOCATION-strlen(cnode->getName()));i-H-) 

// cout « “ 
cout « “ 

cout « cnode->getVariationNumber(); 
cout « “ 

cout « cnode->getVersionNumber(): 
cout « “\n”; 

tinie_t locktime = cnode->getLockTimeO; 
cout « ctime(& locktime); 

} 

resetVisitedFlagO: 

putObjectO; 

return; 

) 

) 



void V_OBJECT::releaseLockSubtree() 

i 

List *child_nodes = (List *) theChildPtr.Binding(this); 
Lisllterator ChildrenPtr(child_nodes); 

V_OBJECT *cnode; 

while(ChildrenPtr.moreData()) 

{ 



cnode = (V_OBJECT *) (Entity *) ChildrenP>tr(); 
if (cnode->releaseLock()) 
cnode->putObjectO: 
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else 



{ 

cerr « “<ERROR: while unlocking “ « cnode->getName() « “ Aborting.. .>\n"; 
break; // should try to unlock other siblings and their children. 

} 

if (cnode->getChildPirO) 

{ 

cnode-> releaseLockSubtreeQ; 

) 

} 

return; 



void V_OBJECT::dumpSubtree(char *flle_^vTite_option) 

( 

TRACER(“V_OBJECT::dumpSubtree"); 

Boolean node_was_visited = FALSE; 

Boolean file_operation_successful = FALSE; 

Boolean write_operation = FALSE; 

if (strcmp(file_write_option/ w”)=0 II strcmp(file_write_option,’"W")==0) 
write_operation = TRUE; 
if(!this) 

{ 

cerr « *'<ERROR: can not dump children of a null V_OBJECT!>\n"; 
return; 

) 

if(!theChUdPtr) 

{ 

cerr « “<ERROR: can not print children of a null childPtr!>\n"; 
return; 

} 

else 



if (write_operaiion) 

{ 

DDBControlData VControlFile; 

DDBControlData * VControlFUePtr = & VControlFile; 
char *Vnew_name = NULL; 
char *VV_name = getNameQ; 

VV_name [strlen(VV_name) > 2] = ‘V)'; 

char *VDDBControlpaih = new char [strlen(dirNamePtr) + strlen(VV_name) + 13]; 

strcpy(VDDBControlpalh,dirNamePtr); 

strcat(VDDBControlpath, Y'); 
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strcat(VDDBControlpath, “ddbCtrlData.”): 
strcat(VDDBControlpath, W_name); 
VControlFilePtr->variation = getVariaiionNumberO; 
VControlFilePtr-> version = getVersionNumberO: 
putddbControlFile(VDDBControlpath.VControlFilePtr); 

) 

List *child_nodes = (List *) theChildPtr.Binding(this); 
Listlterator ChildrenPtr(child_nodes); 

V_OBJECT *cnode; 
int index = 1; 

while (cnode = (V_OBJECT *) (Entity *)ChildrenPtrO) 

{ 

node_was_visited = cnode->getVisitedFIagO: 
if (cnode->getChildPtrO) 

{ 

cnode-> dumpSubtree(file_write_option): 

) 

if (node_was_visited && index > 1) 

{ 

cnode->resetVisitedFlag(): 

cnode->putObject(); 

break; 

} 

else 

{ 

cnode->resetVisitedFlag(): 

cnode->putObjectO: 

) 

if (index =1) 
cnode->setVisitedFlag(); 
else 
{ 

cnode- >resetVisitedFlag(); 
cnode->putObjectO; 

} 

index-H-; 

long cobjectjocktitne = 0; 
cobjectjocktime = cnode->getLockTimeO: 
if (cobject_locktime>0) // prevent checkout 

{ 

if (Strcmp(rtle_write_option,”w”)=0 ) 

{ 

cerr « “<ERROR: Module “ « cnode->getNodeNameO 
« “ lockedby “ « cnode->getWorker() 
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« “ Reset write option to display>\n"; 
strcpy(file_write_opiion,”r"); 

) 

cerr « “<Caution: “ « cnode->getNodeName() 

« “ locked on: “ 

« ctime(&cobject_locktime) 

« “Node checked out for display onlyNn"; 

} 

file_operaiion_successful = cnode->checkoutCOMPONENTNode(fi]e_write_oprion); 
if ((file_operalion_successful) && 

((strcmp(ftle_write_opiion/lV“)==0) II 
(strcmp(file_write_option/'w“)==0))) 

{ 

cnode->setLock(); 

cnode->setWorker(); 

cnode->resetLastOpFalse(); 

cnode->putObject(): 

DDBControlData ControlFile; 

DDBControlData ^ConirolFilePtr = &ControLFile: 

char "^new_name = NULL: 

char *V_name = cnode->getNameO: 

V_name [strlen(V_name) - 2] = ^0’; 

char *DDBControlpath = new char [strlen(dirNamePtr) + strlen(V_naine) + 13]; 

strcpy(DDBConirolpath,dirNaniePtr); 

strcat(DDBControlpath, “D; 

strcat(DDBControlpath, “ddbCtrlData."); 

strcat(DDBControlpath, V_name); 

ControlFilePtr->variation = cnode-> getVariationNumberO: 
ControlFilePtr->version = cnode-> geiVersionNumberQ; 
putddbControlFile(DDBControlpath,ControlFilePtr); 



if (write_operation) 
strcpy(file_write_option,”w“); 

} 

resetVisitedFlagO; 

putObjectO; 

return; 

} 

} 



List * V_OBJECT::getChildren() 

{ 
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List *temp_list = (List *)theChildP*tr.Binding(this); 
if (temp_list->CardinalityO > 0) 
return temp_list: 
else 

return NULL; 

} 

Boolean V_OBJECT::getChildPtr() 

{ 

List *temp_list = (List *)theChildPtr.Binding(this); 
if (temp_list->CardinalityO > 0) 
return TRUE; 
else 

return FALSE; 

1 



// Member Function // 

Boolean V_OBJECT;;checkoutCOMPONENTNode(char *file_write_option) 

{ 

TRACER(“V_OBJECT::checkoutCOMPONENTNode'*); 
if (.'this) 

{ 

cerr « “<ERROR: cannot checkout COMPON’ENT nodes of a null V_OBJECTSn"; 
return FAILED; 

) 

if (ItheCOMPONENTPtr) 

{ 

cerr « “<ERROR; cannot get the source code from a null COMPON'ENT>Vi"; 
return FAILED; 

} 

else 

{ 

COMPONENT ‘myCOMPONENTPtr = (COMPONENT*) theCOMPONENTPtr.Binding(this); 
return (myCOMPONENTPtr -> getComponentSource(file_write_option)); 

} 

I 
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// File Header 

// : 

//J^ilename : vobjectfunc.h 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

V 

I I Compiler : Glockenspiel C++ 2.1 

// 

// End header comments 



#ifndef _VOBJECTFUNC,H 
#define _VOBJECTFUNC_H 

#ifndef _DDBDEFINES^H 
#include “ddbdefines.h” 

#endif 

#ifndef_THREAD_H 
#include “thread.h” 

#endif 

// sees ID follows: will compile to place date/time stamp in object file 

static char vobJectfunc_h_SccsIdD = ‘‘@(#)vobJectfunc.h 1.3^9/16/91"; 

// Contents - 

// 

// VOBJECTFUNC 

II 

H Description 
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// 

// Defines functions manipulating Versioned Objects 
// (Operators) as called by mainQ 
// 

y/End 

// Interface Dependencies 

// 

//NONE 

// 

// End Interface Dependencies 

void list_operators_func(int, char char char char *); 

void update_vobject_desc_func(inl, char *,char *,char *,char *,char *); 

void get_vobject_desc_func(int ,char char *,char *,char *); 

void get_vobjecl_date_func(int , char *,char *,char *xhar *); 

void get_vobject_versions_func(int , char *,char *); 

void get_vobject_lock_func(int, char *, char *, char *,char *); 

void get_vobject_version_func(); 

void dump_vobject_summar>'_func(int , char *.char *,char *,char *); 
void gel_vobject_psfile_func(int , char char *,char char *); 
void gel_vobject_graphfile_func(int , char *,char *,char *, char *); 
void get_vobject_impfile_func(int , char char *xhar char *); 
void get_vobject_specfile_func(int , char *,char *,char char *); 
void gel_vobject_sourcefile_func(int , char *,char *xhar *, chrir *); 
void dump_vobject_files_func{int , char char *,char char *xhar *); 
void dump_vobJect_iree_func(ini , char char *xhar char char *); 
void long_list_children_func(inlxhar char char *): 
void longJisl_parents_func(inlxhar *, char char char *): 
void long_lisl_operators_func(int, char char char *, char *); 
void release_operatorJock_func(int, char char *, char char *): 
void release_subtree_lock_func(int, char char char char *); 
//void add_vobject_and_subtiee_func(int , char char *); 
void add_new_variation_func(int , char char *, char *, char *); 
void historical_trail(int, char char char char *); 
void putddbControlFile(char*, struct DDBControlData*); 
DDBControlData'*' getddbControlFile(char *); 

THREAD* fu^tThread(THREAD*, ini); 

V_OBJECT* getDefaullVObject(THREAD*); 

THREAD* findThread(char*, char*); 

// Description 

// 

// list_operators_func 
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// 

// Provides a list of operators associated with a 
// subtree of a designated versioned^object. 

// 

// updaie_vobject_desc_func 

// 

// Updates the description text of a designated versioned 
// object. 

II 

II get_vobject_desc_func 
// 

// Provides a description of the designated versioned object. 

// 

// get_vobject_date_func 

// 

// Displays the date that the versioned object was created. 

// 

// get_vobject_versions_func 

II 

I I Checks the thread and displays the different versions. 

// 

// get_vobject_lock_func i 

// : 
// Displays a 26 character text entry reflecting the tinte 
// and date that the versioned object was locked. 

// 

// get_vobject_version_func 

// 

// returns the version of the versioned object instance. 

// 

// dunip_vobject_summary_func 

// 

// displays predetermined attribute fields to stdout/stderr. 

// 

// get_vobject_psfile_func 

// 

// rebuilds the CAPS postscript file to the PROTOTYPE j 

// directory. 

// 

// get_vobject_graphfile_func 

// 

// rebuilds the CAPS graph file to the PROTOTYPE directory. 

// 

// get_vobject_impfile_func 



302 



I 



// 

// rebuilds the CAPS implementation file to the PROTOTYPE directory. 

II 

H get_vobject_specfile_func 
// 

// rebuilds the CAPS specification file to the PROTOTYPE directory. 

II 

H get_vobject_sourcefile_func 
// 

// rebuilds the CAPS source file to the PROTOTYPE directory. 

// 

// dump_vobject_files_func 

II 

// rebuilds all of the above files (of one operator) to the 
// PROTOTYPE directory. 

II 

// dump_vobject_tree_func 

II 

H rebuilds all existing TEXT_OBJECT attributes to the PROTOTYPE 
// directory for the entire decomposition of the root operator 
// down to the component operators. May be dumped in “read only” 

// or “read/write”. When dumped, all versioned objects are 
// locked for modification by other users. 

// 

// long_list_children_func 

// 

// lists the node name and version number of children. 

II 

H long_list_parents_func 
// 

// lists the most current parent (and that parents siblings). 

// 

// long_list_operators_func 

// 

// lists the node name and version number of a node’s children. 

II 

H release_operator_lock_func 
II 

H reset the locktime of a versioned operator. 

// 

// release_subtree_lock_func 

// 

// reset the locktime of a versioned operator and all children 
// of that versioned operator. 
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II 

H add_vobject_and_subtree_func 

// 

// the reverse of a dumping vobjects. this checks versioned 
// objects back into the database, versioning them if necessary. 
// 

// End Description 

#endif // end vobjectfunc header function 
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// File Header 

// : 

//JFiJename : vobjectfuncxxx 

//Date : 9/16/91 

// Author : Garry Lewis 

// : Drew Dwyer 

// Modified by : Michael D. O’Loughlin 

//Date : 6/18/92 

// Modifications : Extensive modifications have been conducted on almost all of the 
/* original code written by Dwyer and Lewis. Every function that 

accesses an attribute of an object or the entire object has had 
to be modified. The original code is not even recognizable in 
some functions. 

Because the functionality of the design database system changed 
completely from what Dwyer and Lewis developed each individual 
modification has not been documented. Because of the massive 
changes required I discarded a lot of obsolete code and build a 
new system on the base Dwyer and Lewis had established. 

*/ 

// Compiler : Glockenspiel C-h- 2. 1 

II 

// End header comments 

// sees ID follows: will compile to place date/time stamp in object file 

static char vobjectfunc_cxx_SccsId[] = “@(#)vobjectfunc.cxx 1.3\t9/ 16/91"; 

// Contents 

II 

// list_operators_func 
// update_vobject_desc_func 
// get_vobject_desc_func 
// get_vobject_date_func 
// get_vobject_versions_func 
// get_vobject_lock_func 
// get_vobject_version_func 
// dump_vobject_summary_func 
// get_vobject_psfile_func 
// get_vobject_graphflle_func 
// get_vobject_impfile_func 
// get_vobject_specfile_func 
// get_vobject_sourcefile_func 
// dump_vobject_files_func 
// dump_vobject_iree_func 
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// long_list_chiJdren_func 
// long_list_parents_func 
// long_list_operalors_func 
// release_operator_lock_func 
// release_subtree_lock_func 
// add_vobject_and_subtree_func 
// 

// Description 

// 

// this contains the functions for manipulating versioned objects 

// 

//End 

// Interface Dependencies 

// 

// TURN ON TRACE-DEBUG 
#define DEBUG 
#include “debug. h" 

#include “My_String.h” 

#include <stream.hxx> 

#include <List.h> 

#include <Directory.h> 



extern “C-” 



#include <stdlib.h> 

} 



#ifndef _DIRECTORY_H 
#include “directory .h“ 
#endif 

#ifndef TREE H 
#include “tree.h“ 

#endif 

#ifndef _TREENODE^H 
#include “treenode.h” 
#endif 

#ifndef _PROTOTYPE_H 
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#include “prototype.h” 

#endif 

#ifndef _COMPONENT_H 
#include “component.h” 

#endif 

#ifndef_VOBJECT_H 
#inc!ude “versioned_object.h” 
#endif 

#ifndef_THREAD_H 
#include “thread.h” 

#endif 

#ifndef _VOBJECTFUNC_H 
#include “vobjectfunc.h” 
#endif 

#ifndef _DDBDEFINES_H 
tinclude “ddbdefines.h" 

#endif 

// 

//End Interface Dependencies ■ 



extern Type *THREAD_OType; 
extern Directory *prototype_dir; 
extern char *dirNamePtr; 
PROTOTYPE *prototypeptr; 
THREAD *threadPtr; 
COMPONENT ‘COMPONENTPtr; 
long vobjectjocktime =0; 



void list_operators_func(int number_arguments, char *proto_name, 

char *operator_najne. char * variationstr, char *versionstr) 

I 

TRACER(“list_operators_func”); 

V_OBJECT *vobjectPtr; 

threadPtr = findThread(proto_name, operator_name); 
if (! threadPtr) 
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return; 



} 

switch (number_arguments) 

{ 

case 2: 

{ 

vobjectPtr = getDefaultVObject(threadPir); 
vobjectPtr ->listOperatorNames(); 
break; 

} 

case 4: 

{ 

int varNum = atoi(variationsir); 
threadPtr = firstThread (threadPtr, varNum); 

V_OBJECT *vobjectPtr; 

vobjectPtr = threadPtr->version(atoi(versionstr)); 

vobjectPtr ->listOperatorNamesO; 

break; 

} 

default: 

cerr « “<ERROR: invalid number args for gel vobject descripiion>\n" 

} 



void update_vobject_desc_func(int number_argumentsxhar *proto_name, 
char *operator_name, char ^filename, 
char *variationstr» char *versionstr) 

{ 

TRACER(‘‘update_vobject_desc_func"); 

V_OBJECT *vobjectf^» 

threadPtr = findThread(proto_name» operator_name); 
if (IthreadPtr) 

{ 

return; 

} 

ifsiream description_file; 
description_file.open(filename, ios :: in); 

if (!descripiion_file) 

{ 

coui « “<Description File does not exist! >\n"; 
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else 



{ 

switch (number_argumeius) 

{ 

case 5: 

int varNum = atoi(variationstr); 
threadPtr = firstThread (threadPtr, varNum); 
vobjeciPtr = threadPtr->version(atoi(versionstr)); 
vobjectPtr ->updaieDescription(filename,description_file): 
break; 
default: 

cerr « “<ERROR; invalid number args for update vobject description>\n 

) 

1 

) 



void get_vobject_desc_func(int number_arguments.char *proto_name, 
char *operator_name. char *variationstr, 
char *versionstr) 

i 

TRACER(“get_vobject_desc_func”); 

V_OBXECT * vobjectPtr; 

threadPtr = fmdThread(proto_name, operator_name): 
if (! threadPtr) 

return; 

} 

switch (number_arguments) 

case 2; 

{ 

V_OBJECT *vobjectPtr: 
vobjectPtr = threadPtr->current(); 
vobjectPtr ->gelDescriptionO: 
break; 

1 

case 4: 

{ 

int varNum = atoi(variationstr); 

threadPtr = firstThread (threadPtr, varNum); 

vobjectPtr = threadPhr->version(atoi(versionstr)); 

vobjectPtr ->getDescription(); 

break; 
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default: 

cerr « "<ERROR: invalid number args for gel vobjecl description>\n" 



void release_subtree_lock_func(int number_arguments, char *proto_name, 
char *operalor_name, char *variationstr, 
char *versionslr) 

{ 

TRACERC‘reIease_subtree_Iock_func"); 

V_OBJECT *vobjectPtr: 

threadPtr = findThread(proto_name, operator_name); 
if (IlhreadPir) 



return; 

} 



switch (number_argumenls) 

{ 

case 2: 

cerr « “VRS operation no longer valid with default version number." 
« “ Variation & version number required."; 

break; 
case 4: 

{ 

int varNum = atoi(variationsir); 
threadPtr = firstThread (threadPtr, varNum); 
vobjeclPtr = threadPtr->version(atoi(versionstr)); 
if (vobjectPtr ->reIeaseLock()) 

{ 

vobjectPtr->putObject(); 
vobjeclPtr ->reIeaseLockSubtree(); 
cerr « “Subtree locks released.Nn"; 

1 

else 

{ 

cerr « “<ERROR: Can’t unlock “«vobjectPir->getName() 

« “ Abort releaseLock rest subtree>\n"; 



break; 

} 

default: 

cerr « “<ERROR: invalid number args for subtree release lock>\n"; 
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} 



I 

void release_operator_Iock_func(int number_arguments, char *proto_name, 
char *operator_name, char *variaiionstr, 
char *versionstr) 

TRACER(“release_operator_lock_func”); 

V_OBIECT *vobjectPtr; 

threadPtr = findThread(proto_name, operaior_name); 
if (! threadPtr) 

{ 

return; 

1 

switch (number_arguments) 

{ 

case 2: 

cerr « “VRO operation no longer valid with default version number.” 
« “ Variation & version number required.”; 

break; 
case 4; 

{ 

int varNum = atoi(variationstr); 
threadPtr = firstThread (threadPtr. varNum); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 
if (vobjectPtr->releaseLock()) 

{ 

vobjectP*tr->putObjectO; 

I 

else 

{ 

cerr « “<ERROR; Can’t unlock ‘■«vobjectPtr->getName() 

« “ Aborting release lock>\n"; 



break; 

I 

default; 

cerr « “<ERROR: invalid number args for release lock>\n”; 



1 

void get_vobject_date_func(int number_arguments, char *proto_name. 
char *operator_name, char *variationstr. 
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char *versionstr) 



{ 

TRACER(“GET_vobject_daie_func”); 

creation__daie; 

V_OBJECT *vobjectPtr; 

ihreadPtr = findThread(proto_name, operator^name); 
if (!ihreadPir) 

{ 

return; 

} 



switch (number_arguments) 

{ 

case 2: 

vobjectPtr = getDefauItVObject(threadPtr); 
creation_date = vobjectPtr ->getCreationDaie(); 
cout « ctime(&creation_date); 
break; 
case 4: 

int varNum = atoi(variationstr); 
threadPtr = firstThread (threadPtr, varNum); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 
creadon_date = vobjectPtr ->getCreationDate(); 
cout « ctime(&creation_date) ; 
break; 
default: 

cerr « ‘'<ERROR: invalid number args for get vobject date>\n"; 

} 

} 



void get_vobject_versions_func(int number_arguments, char *proto_name, 
char *operator_name) 



{ 

TRACER(“GET_vobject_versions_func"); 
threadPtr = fmdThread(proto_name, operator^name); 
if (IthreadPtr) 

{ 

return; 

} 



switch (number_arguments) 



case 2: 
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V_OBJECT *initialVersion = threadPtr-> version(l); 
im count = initial Version->getNumberOfVariations(); 
for (ini i=l; i <= count; i++) 

{ 

THREAD *TthreadPtr = firslThread (threadPtr, i); 
TlhreadPtr->display Thread Versions() ; 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for get vobject VERSIONS>\n” 

} 

} 



void historical_trail(int number^arguments, char *proto_name, 
char *operator_name, char *variationstr, 
char *versionstr) 

{ 

V_OBJECT *has_parent; 

THREAD *previousThreadPtr = (THREAD 
threadPtr = findThread(proto_name, operator_name); 
if (! threadPtr) 

{ 

return; 

} 

previousThreadPtr = firstThread (threadPtr, atoi(variationstr)); 
has_parent = previousThreadPtr->version(atoi(versionstr)): 

char *name; 

name = has_parent->getName(); 
name[strlen(name)-2] = ‘M)’: 

cout « name « “ “ « has_parent->getVariationNumber() « “ “ 

« has_parent->getVersionNumber() « ‘^n”; 

while (!(previousThreadPtr->previousVariation() = 0)) 

{ 

cout « name « “ “ « previousThreadPtr->previousVariation() « " " 
« previousThreadPtr->previousVersion() « ‘^n"; 
previousThreadPtr = 

firstThread (threadPtr, previousThreadPtr->previousVariationO); 

) 

} 
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void gei_vobject_Iock_func(ini number_argumenis, char *proto_name, 
char *operator_name, char *variationstr, 
char *versionstr) 

{ 

TRACER(“GET_vobject_lock_func”); 
dme_t Iock_iime; 

V_OBJECT *vobjeciPtr; 

threadPir = findThread(proto_name, operalor_name); 
if (IthreadPtr) 

{ 

return; 

} 



switch (number_arguments) 

{ 

case 2: 

vobjectPtr = getDefauItVObject(threadPtr); 
vobjectPtr = threadPlr->current(); 
lock_time = vobjectPtr ->getLockTime(); 
com « ctime(&lock_time); 
break; 
case 4: 

threadPtr = firstThread (threadPtr, atoi(variationstr)); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 

Iock_time = vobjectPtr ->getLockTime(); 
com « ctime(&lock_iime); 
break; 
default: 

cerr « “<ERROR: invalid number args for get vobject Iock>\n"; 

} 



void get_vobject_version_func() 

{ 

cerr « “Not implemented. Unclear specs for get version of vobject\n“; 



void dump_vobject_summary_func(int number_arguments, char *proto_name, 
char *operaior_name, char *variationstr, 
char *versionstr) 

( 

TRACER(“du m p_vo bjec t_sum m ary_f unc ”) ; 

V_OBJECT * vobjectPtr; 

threadPir = fmdThread(proto_name, operator_name); 
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if (IthreadPtr) 



{ 

return; 

) 

switch (number_arguments) 

{ 

case 2; 

vobjectPtr = getDefaultVObject(threadPtr); 
vobjectPtr-xiumpVObjSummaryO; 
break; 
case 4: 

threadPtr = firstThread (threadPtr, atoi(variationstr)); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 
vobjectPtr->dumpVObjSummary(); 
break; 
default: 

cerr « “<ERROR: invalid number args for get vobjecl summary>\n” 



} 

void get_vobJect_psfile_func(int number_argumenls. char *proto_name, 
char *operator_name, 
char * variations tr, char *versionstr) 

{ 

TRACERrGET_vobject_psfile_func’’); 

V_OBJECT *vobjectPtr; 

threadPtr = fuidThread(proto_name, operator_name); 
if (IthreadPtr) 



return; 

) 



switch (number_arguments) 

{ 

case 2: 

{ 

vobjectPtr = getDefaultVObject( threadPtr); 
vobjectjocktime = vobjectPtr->getLockTimeO; 
COMPONENTPtr =vobjectPtr->getCOMPONENT0; 
COMPONENTPtr->getPSfile(‘‘R’’); 
break; 

} 

case 4: 
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{ 

threadPtr = firstThread (threadPtr, atoi(variationstr)); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 
char *file_write_option = “R”; 

COMPONENTPtr = vobjeciPtr->getCOMPONENT0; 
COMPONENTPtr ->getPSfile(file_write_option); 
break; 

} 

default: 

cerr « “<ERROR: invalid number args for get vobject PS>V’; 



} 



void get_vobject_graphflle_func(int number_arguments, char *proto_name, 
char *operator_name, 
char *variationstr, char *versionstr) 

{ 

TRACER(“GET_vobject_graphfile_func"); 

V_OBJECT *vobjectPU'; 

threadPtr = fmdThread(proto_name, operator_name); 
if (!threadPtr) 

( 

return: 

} 

switch (number_arguments) 



case 2: 

{ 

vobjectPtr = getDefaultVObJect(threadPtr); 
COMPONENTPtr =vobjectPU’->getCOMPONENT(); 
COMPONENTPtr->getGRAPHfileC‘R”); 
break; 

} 

case 4: 

{ 

threadPtr = firstThread (threadPtr, atoi(variadonstr)); 
V_OBJECT * vobjectPtr, 
vobjectPtr = threadPir->version(atoi(versionstr)); 
COMPONENTPtr = vobjectPtr->getCOMPONENT(); 
COMPONENTPtr *>getGRAPHfile(“R”); 
break; 

} 



316 



default: 

cerr « “<ERROR: invalid number args for get vobject GRAPH>\n”; 

} 



void get_vobject_impfile_func(int number_arguments, char *proto_name, 
char *operator_name,char *variationstr, 
char *versionstr) 

TRACER(“GET_vobject_impfile_func”); 

V_OBJECT *vobjectPtr; 

threadPtr = findThread(proto_name, operator_name); 
if (IthreadPtr) 

{ 

return; 

} 



switch (number_arguments) 
case 2: 

vobjectPtr = getDefaultVObjectlthreadPu"); 

COMPONENTPtr =vobjectPtr->getCOMPONENT(); 
COMPONENTPtr->getIMPfile(“R”); 
break: 
case 4: 

threadPtr = firstThread (threadPtr, atoi(variationstr)); 
vobjectPtr = threadI*tr->version(atoi(versionstr)); 
COMPONENTPtr = vobJectPtr->getCOMPONENT0: 
COMPONENTPtr ->getIMPfiIe(“R"); 
break; 
default: 

cerr « “<ERROR: invalid number args for get vobject lMP>Nn”; 

} 



void get_vobject_sp>ecfile_func(int number_arguments, char *proto_name, 
char *operator_name, 
char *variationstr, char *versionstr) 

I 

TRACER(“GET_vobject_specfile_func”); 

V_OBJECT * vobjectPtr; 

threadPtr = findThread(proto_name, operator_name); 
if (IthreadPtr) 

{ 
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return; 



} 

switch (number_arguments) 

{ 

case 2: 

vobjectPtr = getDefaultVObject(threadPtr); 

COMPONENTPtr =vobjectPir->getCOMPONENT0; 
COMPONENTPtr->getSPECfile(‘‘R’’); 
break; 
case 4: 

{ 

thread!^ = firstThread (threadPtr, atoi(variationstr)); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 
COMPONENTPtr = vobjectPtr->getCOMPONENT(); 
COMPONENTPtr ->getSPECfilerR”); 
break; 

I 

default; 

cerr « “cERROR: invalid number args for get vobject SPEC>\n”; 

} 



void get_vobject_sourcefile_func(int number_arguments, char *proto_name, 
char *operator_name, 

char *variationstr, char *versionstr) 

{ 

TRACER(“GET_vobject_sourcefile_func"); 

V_OBJECT *vobJectPtr; 

threadPtr = findThread(proto_name, operator_name); 
if (! threadPtr) 

{ 

return; 



switch (number_arguments) 

{ 

case 2: 

vobjectPtr = getDefaultVObJect(threadPtr); 
COMPONENTPu =vobjectPtr->getCOMPONENT(); 
COMPONENTPtr->getSOURCEfile(“R”): 
break: 
case 4; 

{ 
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threadPtr = firstThread (threadPtr, atoi(variationstr)); 

V.OBJECT *vobjectPtr; 

vobjectPtr = threadPtT->version(atoi(versionstr)); 

COMPONENT!^ = vobjectPtr->getCOMPONENT0; 

COMPONENTPtr->getSOURCEfile(“R”); 

break; 

) 

default; 

cerr « “<ERROR: invalid number args for get vobject SOURCE>Vi” 

} 



void dump_vobject_files_func(int number_arguments, char *proto_name, 
char *operator_name,char *file_write_option, 
char *variationstr, char *versionstr) 

{ 

TRACER(“dump_vobject_files_func”); 

Boolean file_operation_successful = FALSE; 

V_OBJECT *vobjectPtr; 

threadPtr = fuidThread(proto_name. operator_name); 
if (! threadPtr) 

{ 

return; 

1 



switch (number_arguments) 

{ 

case 3; 

vobjectPtr = getDefaultVObject(threadPtr); 
vobjectjockdme = vobjectPU'->getLockTime(); 
if (vobject_locklime>0) 

// lock was set..prevent “w” checkout 

{ 

if (strcmp(file_write_option,”w”)=0) 

// if attempting “W” - change to “r” 

I 

cerr « “<ERROR: Module “ 

« vobjectPtr->getNodeName() « “ locked by : " 
« vobjectPtr->getWorkerO 

« “ Resetting w option to ro>\n”; 
strcpy(file_write_option ,”r”); 

} 

else 

{ 
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cerr « “<Caution: “ « vobjectPir->geiNodeName() 
« “ is Iocked.> \n” « “Date Locked: “ 

« ctime(&vobject Jocktime) 

« “operator files checked out in romodeXn’*; 



) 

else 

cout « vobjectPtr->gelNodeName() 
file_operadon_successful = 

vobjectPtr -> checkoutCOMPONENTNode(file_write_option); 
if ((file_operation_successful) && 

((strcmp(file_write_option,“\\'^')=0) II (strcmp(file_write_option,“w“)=0))) 

{ 

vobjectPtr -> setLockQ; // set root lock 

vobjectPtr -> setWorker(): 
vobjectPtr -> resetLastOpFalse(); 
vobjectPtr->putObject(); 

} 

if (!file_operation_successful) 

cerr « “<ERROR: checking out “ « vobjectPtr ->geLName() ; 
break; 
case 5: 

threadPir = firstThread (threadPtr, atoi(variationstr)); 
vobjectPtr = threadPtr->version(atoi(versionstr)); 
vobjectjocktime = vobjectPtr->getLockTime(); 
if (vobject JocktimoO) // prevent checkout 

{ 

if (strcmp(file_write_option/'w")=0) // change “w“ to “r” 

{ 

cerr « “<ERROR: Module “ « vobjectPtr->getNodeName() 

« “ locked by : “ « vobjectPtr->getWorker() 

« “ Resetting w option to ro>\n"; 
strcpy(file_NVTite_option/'f'): 

} 

else 

cerr « “<Caution: “ « vobjectPtr->getNodeName() 

« “ is locked.> \n“ « “Date Locked: “ 

« ctime(&vobject Jocktime) 

« “operator files checked out in ro mode\n”; 



else 

cout « vobjectPtr->getNodeName() 
COMPONENTPir = vobjectPtr->getCOMPONENT(); 
file_operation_successful = 
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vobjectPtr -> checkoutCOMPONENTNode(file_write_option); 
if ((file_operation_successful) && 
((strcmp(file_write_option,”W”)==0) II 
(strcmp(file_wTite_option,”w”)==0))) 

{ 

cerr « “Set lock, set worker, reset last op.Vi”; 
vobjectPtr -> setLockQ: // set root lock 

vobjectPtr -> setWorkerf); 
vobjectPtr -> resetLastOpFalse(); 
vobjectPtr->putObject(); 

DDBControlData VControlFile; 

DDBControlData *VControlFilePtr = & VControlFile; 
char *Vnew_name = NULL; 
char *VV_name = vobjeclPtr-> getName(); 
VV_name[strlen(VV_najne)-2] = ‘NO’; 
char *VDDBControlpath = 

new char[strlen(dirNamePtr) + strlen(VV_name) + 13]; 
strcpy(VDDBControlpath, dirNamePtr); 
strcat(VDDBControlpath, “/”); 
strcat(VDDBControlpath, “ddbCtrlData.”); 
strcat(VDDBControlpath, VV_name); 

VControlFilePtr->variation = vobjectPtr->getVariationNumber(); 
VControlFilePtr->version = vobjectPtr->getVersionNumber(); 
putddbControlFile(VDDBControlpath, VControlFilePtr): 

1 

if (!file_operation_successful) 

cerr « “<ERROR: checking out “ « vobjectPtr ->getName() ; 
break; 
default: 

cerr « “<ERROR; invalid number args for get vobject FILES>\n"; 

1 



void dump_vobject_tree_func(int number_arguments, char *proto_name, 
char *operator_name,char *fUe_write_option, 
char *variationstr, char *versionstr) 

i 

TRACER(“dump_vobject_tree_func”); 

Boolean file_operation_successful = FALSE; 

V_OBJECT ‘vobjectPtr; 

threadPtr = findThread(proto_name, operator_name); 
if (IthreadPtr) 

I 

return; 
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) 

switch (number_argumenis) 

{ 

case 3: ^ 

vobjectPtr = getDefaultVObject(ihreadPir); 
vobject_lcx:ktime = vobjectPtr->getLockTimeO; 
if (vobject_locktime>0) // prevent checkout 

{ 

if (strcmp(file_write_option,”w”)=0) // change “w” to “r”) 

{ 

cerr « “<ERROR: Module “ « vobjectPtr->gelNodeNameO 
« “ locked by : “ « vobjectPtr->getWorker() 

« “ Resetting write option to display>\n"; 

strcpy(file_write_option/'r”)» 

} 

cerr « "<Caution: « vobjectPtr->getNodeName() 

« “ is locked.>\n’’ « “Date Locked: “ 

« ctime(&vobject_locktime) 

« “Subtree checked out to display mode.Nn”; 



else 

cout « vobjectPtr->getNodeNajne() « “ “ 

« vobjectPtr-> getVariationNumber() 

« “ “ « vobjectPhr->getVersionNumber() «‘^n\n'’: 
file_operation_successful = 

vobjectPtr -> checkoutCOMPONENTNode(file_write_option); 
if ((file_operation_successful) && 
((strcmp(file_write_option/'w“)=0) II 
(strcmp(file_wrile_option/’W'"’)=0))) 

{ 

vobjectPtr -> setLockQ; // set root lock 

vobjectPtr -> setWorker(): 
vobjectPtr -> resetLastOpFalseQ; 
vobjectPtr->putObjectO; 

} 

if (file_operation_successful) 

{ 

vobjectPtr -> dumpSubtree(file_write_option); 
int vnum = vobjectPtr -> getVersionNumberO; 
threadPtr -> putObject(); 

) 

// dump rest of tree 
else 
{ 
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cerr « “<ERROR: checking out “ « vobjectPtr •>getName() 
« " Aborting dump_vobjeci_tree_func>Vi’’; 
TRACE(‘Tile_operation not successful”); 

} 

break; 
case 5: 

TRACE(“case5”); 

threadPtr = firsiThread (ihreadPtr, atoi(variationstr)); 
vobjectPtr = threadPir->version(atoi(versionstr)); 
vobjectjocktime = vobjectPtr->getLockTime(); 
if (vobjecl_locktime>0) // prevent checkout 

{ 

if (strcmp(file_write_option,”w”)=0) // change “w” to “r”) 

{ 

cerr « “<ERROR: Module “ « vobjectPtr->getNodeName() 
« “ locked by : “ « vobjectPtr->getWorker() 

« “ Resetting write option to display>\n”; 
strcpy(file_write_option,V’); 

} 

cerr « “<Caution: “ « vobjectPtr->getNodeName() 

« “ is locked> \n” « “Date Locked: “ 

« ctime(&vobject_locktime) 

« “Subtree checked out to display mode.Nn”; 

} 

else 

cout « vobjectPtr->getNodeName() « “ “ 

« vobjectPtr-> getVariationNumber() 

« “ “ « vobJectPtr->getVersionNumber() «*Vi\n"; 
file_operation_successful = 

vobjectPtr -> checkoutCOMPONENTNode(file_write_option); 
if ((file_operation_successful) && 
((strcmp(file_write_optionrw”)=0) I! 

(strcmp(file_write_option ”W“)=0))) 

{ 

vobjectPtr -> setLockQ; // set root lock 

vobjectPtr -> selWorkerQ; 
vobjectPtr -> resetLastOpFalseQ^ 
vobjecLPtr->putObject() ; 

) 

if (file_operation_successful) 

{ 

vobjectPtr -> dumpSubtree(file_write_option); 
int vnum = vobjectPtr -> getVersionNumber(); 
threadPtr -> putObject(); 
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} 

// dump rest of tree 
else 
{ 

cerr « “<ERROR: checking out “ « vobjectPtr ->getNameO 
« “ Aborting dump_vobject_tree_func>\n"; 
TRACE(*Tile_operation not successful”); 

} 

break; 

default: 

cerr « “<ERROR: invalid number args for get vobject TREE FILES>\n” 

} 



void long_list_operators_func(int number_arguments, char *proto_name, 
char *operator_name, char * variationstr, 
char *versionstr) 

{ 

TRACER(“long_list_operators_func”); 

V_OBJECT *vobjectPir; 

threadPtr = findThread(proto_name, operator_name); 
if (IthreadPtr) 



return; 

} 



switch (number_arguments) 

( 

case 2: 

TRACE(“case2”); 

vobjectPtr = getDefaultVObject(threadPtr); 
if (vobjectPtr) 

{ 

TRACE(“vobjectPtr not null”); 
vobjectPtr->longlistOperatorNames(); 

} 

break; 
case 4: 

TRACE(“case4”); 

TRACE(“threadPtr not null”); 

threadPtr = firstThread (threadPtr, atoi(variationsu-)); 

vobjectPtr = threadPtr->version(atoi(versionstr)); 

// change made bj UW 4/6/92 
if (vobjectPtr) 
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( 

TRACE(“vobjectPtr not null”); 
vobjectPtr->longUstOperatorNaines(); 

I 

break; 

default: 

TRACE(“default”); 

cerr « “<ERROR: invalid number args for long list operators>\n”; 

} 

I 



void long_list_children_func(int number_arguments, char *proto_name. 
char *operator_name,char *versionstr) 

{ 

TRACER(“long_list_children_func”); 

V_OBJECT *vobjectPtr; 

threadPtr = findThread(proto_name, operator_name); 
if (! threadPtr) 

{ 

return; 

} 

switch (number_arguments) 
case 2: 

vobjectPtr = threadPtr->currentO; 
vobjectPtr -> listChildren(); 
break; 
case 3: 

vobjectPtr = threadPlr->version(atoi(versionstr)); 
vobJectPtr->listChildren(); 
break; 
default 

cerr « “<ERROR: invalid number args for long list children >Nn”; 

} 



void long_list_parents_func(int number_arguments, char *proto_name, 
char *operator_name, char *variationstr, 
char ‘versionstr) 

{ 

TRACER(“long_list_parents_func”); 

V_OBJECT *parentPtr; 

V_OBJECT *vobjectPtr; 
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ihreadPtr = findThread(proto_nanie, operator_name); 
if (ithreadPtr) 

{ 

return; 

} 

switch (number_arguments) 

{ 

case 2: 

TRACE(“case2”); 

vobjeciPtr = getDefaultVObject(threadPtr); 
parentPtr = vobjectPtr->getParentO; 
if (parentPtr) 

{ 

V_OBJECT ^grandparent = parentPtr->gelParent(); 
if (grandparent) 
grandparent -> listChildren(): 
else 

cout « “ cNnRoot Node: " 

« parentPtr->getNodeName() « 

} 

break; 
case 4: 

TRACE(“case4"); 

threadPtr = firsiThread (threadPtr, atoi(variationstr)); 
vobjeciPtr = threadPtr->version(atoi(versionstr)); 
parentP^ = vobjeclPtr->getParentO; 
if (parentPtr) 

{ 

V_OBJECT ^grandparent = parentPtr->gelParent(); 
if (grandparent) 
grandparent -> listChildren(); 
else 

cerr « “<Can not list Parent/siblings of Root V_Object>\n”; 

} 

else 

cerr « “<Currendy located at Root V_OBJECT>\n”; 
break; 
default: 

TRACE(‘*dfault”); 

cout « ‘'<ERROR: invalid number args for long list children >\r\ 

} 
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DDBControlData* getddbControlFile (char *ddbctrlfile) 

{ 

TRACERC'GETddbControlFile”); 

DDBControlData * VarVerNumberPtr = new DDBControlData; 
fstream infiJe; 

infile.open(ddbctrlfile 40 s :: in I ios :: nocreate); 
int result = mfile.good(); 

if (! result) 

( 

infile.closeO; 

return VarVerNumberPtr = (DDBControlData *)0; 

} 

infile » VarVerNumberPtr-> variation: 
infile » VarVerNumberPtr-> version; 
infile.closeO: 
return VarVerNumberPtr; 

} 



void putddbControlFile (char *ddbctrlfile. DDBControlData *DDBCtrl) 

{ 

fstream outfile; 

outfile.open(ddbctrlfile,ios ;; out); 
outfile « DDBCtrl-> variation « 
outfile « DDBCtrl-> version « 
outfile.closeO; 

} 



void add_new_variaiion_func(int number_arguments. char *proto_name, 

char *operator_name, 
char *varialionstr, 
char *versionstr) 

{ 

TRACER(“add_new_variation_func”); 

char *prototype_name = (char*)(My_String(proto_name) + 

My_S tring(PROTOTYPE_EXT)); 

V_OBJECT *variationPtr = (V_OBJECT *)0; 

V_OBJECT *NewVariationPtr = (V_OBJECT *)0; 

V_OBJECT *versionPtr = (V_OBJECT *)0; 

V_OBJECT *new_parent = (V_OBJECT *)0; 

THREAD *TheThread = (THREAD *)0; 

prototypeptr = (PROTOTYPE*)OCJookup(prototype_name); 
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if (prototypeptr) 



{ 

coul « operator_name « ‘^n"; 

char *p_op)erator_name = buUdThreadNanie(operator_narne, 1); 
threadPtr = (THREAD *)OC Jookup(p_operator_naine); 

} 

else 

{ 

cerr « “<ERROR: getting Prototype in ADD_NEW_VARlATION:>Nn 
return; 

} 



switch (number__arguments) 

{ 

case 2: 

{ 

if (! threadPtr) 

1 

variationstr = “1": 
versionstr = ‘‘1"; 



else 



// do a get control data here to check if a control file exists. 
V_OBJECT *default_Version = getDefaultVObject(threadPtr); 
new_parent = default_Version->getParentO; 

} 

break; 

} 

case 4: 

{ 

if (threadPtr) 

{ 

variationPtr^ threadPtr -> version(l); 

NewVariationPtr= variationPtr -> variaiion(aioi(variationstr)); 
TheThread = NewVariationPtr -> getThread(); 
if (TheThread) 

{ 

versionPtr = TheThread -> version(aioi(versionstr)); 
new_parent = versionPtr->getParentO; 



break; 

} 
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default : 



{ 

cerr « “<ERROR: invalid number args for add new variation>\n”; 
return; 

) 

) 

DIRECTORY *capsdirectory; 
capsdirectory = new DIRECTOR YQ; 
capsdirectory->read_directory(operator_name); 
capsdirectory->updatedmestamp(); 

TREENODE_Iinkedlist operatorList = capsdirectory->getOperatorListO; 
TREENODE *rootnode = capsdirectory->find_treenode(operator_name); 
TREENODE *tree_root = new TREENODE(rootnode JWLL); 

TREE *workingtree = new TREE(tree_root, operator_name); 
woikingtree->build_tree(tree_root.operatorList); 

V_OBJECT *new_root = tree_root->checkin_node(new_parent): 
if (!new_root) 

I 

cerr « “<ERROR: Could not establish new_root in” 

« “add_vobject_and_subtree_func. Aborting.>\n”; 
return; 



new_root->setNodeName(tree_root->getname()); 

tree_root->checkin_subtree(new_root); 

/*Skip release lock of first variation and version checked into database 
since it does not exist yet. */ 

I* 

if (!((atoi(variationstr) == 1) && (atoi(versionstr) == 1))) 

{ 

release_subtree_lock_func( 4, proto_name, operator_name, 
variationstr, versionstr); 

} 

*/ 

} 

THREAD* firstThread (THREAD *threadPtr, int variationint) 

{ 

V_OBJECT *variationPtr = threadPtr -> version(l); 

V_OBJECT *NewVariationPtr = variationP>tr -> variation! variationint); 
THREAD *firstthreadPtr = NewVariationPtr -> getThreadO; 
return firstthreadPtr; 

} 

V_OBJECT* getDefaultVObject(THREAD *initialThreadPtr) 
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V_OBJECT *defaull_Version = initialThreadPtr-> version(l); 
ini latest = default_Version-> getNumberOfVariations(); 

V_OBJECT *working_default_Version = 
defaull_Version-> variation(latest); 
initialThreadPtr = working_defaull_Version->getThreadO; 
de faulty Version = initialThreadPtr->cuirentO; 

cerr « “Default VOBJECT being being accessed. Variation: “ « latest 
« “ Version: “ « defauli_Version-> geiVersionNumberQ 

« ‘\i": 

return default_Version; 

} 

THREAD* findThread(char *proio_name, char *operator_name) 

{ 

char *prototype_name = (char*)(My_String(prolo_name) + 
My_String(PROTOTYPE_EXT)); 

protolypeptr = (PROTOTYPE*)OC_lookup(prototvpe_name): 

THREAD *TempihreadPtr = (THREAD *)0: 

if (protolypeptr) 

( 

char *p_operator_name = buildThreadName(operaior_name, 1); 
TempthreadPtr = (THREAD *)OC_lookup(p_operator_name); 
if (!TempthreadPtr) 

I 

cerr « “<ERROR: Invalid VObject name. Can not get Thread.>\n" 



else 

I 

cerr « “<ERROR: Invalid Prototype name.>\n"; 

I 

return TempthreadPtr; 

I 
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